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SEQ 0003 
1.0 Abstract 


The Unibus Exercisor (UBE) module diagnostic is comprised of a series 
of tests that check all programmatically accessable areas of the 
exercisors ( 95%). The tests are arranged in a logical order such 
that simpler functions are examined first followed by the more complex 
ones. The tests build on one another such that the present test will 
use hardware previously tested. This should provide a very effective 
degree of fault isolation. 


The program is written to test a maximum of four UBE's at one time and 
is intended to run in a stand-alone environment. 


-0 Requirements 


-1 Equipment 


- A working PDP-11 and Unibus 
- A working Teletype 
- A good 6K of Memory 


A minimum of 1 to a maximum of 4 UBE on the system 


2.2 Preliminary Requirements 


It is expected that the module will have been tested on a GR or 
similar tester. This is to ensure that those areas that can not be 
thouroughly exercised by this program are working. These areas are: 


- Wrong Grant Error bit 

- No, No SACK time out Error bit 
Wrong A Lines Error bit 

- No Grant or not one Grant Error bit 

- No Interrupt SSYN Error bit 

- Inhibit Sack Logic. 


In addition the passing of grants can not be tested if only one 
xercisor is present (see section 6.0). On those machines that don't 
have a parity trap (11/05, 11/20), the parity hardware is not 
checked. THE PARITY OPTION TEST (TEST 6) SHOULD BE DESELECTED BY SETTING SWITCH 5 FOR OTHER MACHINES WITHOUT PARITY MEMORY. 
ALSO, THE POWER DOWN TEST SHOULD NOT BE RUN ON THE 11/05. 


-3 Execution Time 


or an error free, first pass run on an 11/45 with core memory, it 
takes approximately 15 seconds per UBE tested. 
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3.0 Starting Address 


200 - for normal startup and restart 
1100 - if halted in Interrupt test and wish to restart 


-O0 Program Control and Operator Action 


ot 


The paper tape is loaded using the standard procedure for ABS. tapes. 


ott 
oad address 200 


3 


If the power down sequence is to be tested set SW4=1. 


4 


If more than one exercisor is present and it is desired to inhibit 
testing one or more of them, set the corresponding SW0,1,2,3=1. 
Switch 0 corresponds to the UBE which has the lowest address on the 
bus. Switch 1 to the next highest etc.. All UBE should not be 
inhibited. If this is done the program will trap to 4 after several 
end of passes. If all exercisors are to be tested SW0,1,2,3=0. 


oS 


Start Test 


5.0 Switch Options 


THE USE OF THIS PROGRAM ON PROCESSORS HAVING A SOFTWARE SWITCH REGISTER 


ECESSITATES OPERATOR INTERACTION: THE OPERATOR MUST SET UP LOCATION 176 


ITH THE SWITCH REGISTER VALUES DESIRED. 


SW<15>=1 Halt on Error 
SW<14>=1 Loop on Test 


SEQ 0004 


SW<13>=1 Inhibit Error Typouts 
SW<12>=1 Inhibit Most Typeouts Except Error -  §EQ 0005 





SW<11>=1 Inhibit Test Iterations 
SW<10>=1 Bell on Error 

SW<09>=1 Loop on Error 

SW<05>=1 INHIBIT TEST 6 

SW<04>=1 Test Power Down 
SW<03>=1 Inhibit Test of UBE4 
SW<02>=1 Inhibit Test of UBE3 
SW<01>=1 Inhibit Test of UBE2 
SW<00>=1 Inhibit Test of UBE1 


5.1 SwW<15> 


The program halts on encountering an error after printing out the 
error message. Pressing ‘continue’ restores normal program operation. 


5.2 SwWx14> 


The program loops on the subtest that is being executed when the 
switch is put on. 


5.3 SwW<13> 


This switch inhibits all error typeouts 


SW<12> 


switch inhibits most typeouts except error typeouts. 


SW<11> 


one iterations of each test is inhibited. 


5.6 SW<10> 


The bell is rung upon encountering an error. 


-7 SW<09> 


pon finding an error, the program will cycle from the point of error 
to the previous scope statement (see sec. 2). 


5.8 SwW<05> 


SEQ 0006 





H 1 
THE PARiTY OPTION TEST (TEST 6) SHOULD BE DESELECTED BY SETTING SWITCH 5 SEQ 0007 
FOR MACHINES WITHOUT PARITY MEMORY. 


5.9 SwW<04> 


When set this switch enables the test of the power down sequence and 
the test that DCLO clears BECC, BEBA, BECR2 and BECR1 registers. This 
Switch should not be set when running under ACT11 since a power down 
will cause an error statement from ACT. 


5.10 SwW<03> 


hen set this switch inhibits testing of the fourth UBE on the bus. 

The fourth exercisor is defined as the exercisor that responds to the 
fourth lowest address of the four exercisors. If there are less than 
four this switch has no effect on the program. 


5.11 SwW<02> 


hen set this switch inhibits test of that UBE with the third lowest 
address. If there are less than three, this switch has no effect on 
the program. 


5.12 SwW<01> 


hen set this switch inhibits test of that UBE with the second lowest 
address. If there are less than two, this switch has no effect on the 
program, 


5.13 SwW<00> 


hen set this switch inhibits testing the lowest address exercisor on 
the buss. If there is one exercisor, this switch should not be set. 


6.0 Program Description 


pon start of the program, a map, called EMAP, of all the exercisors 
present is typed out in octal. Each bit set in the map corresponds to 
UBE present. The least significant bit represents the UBE whose 
BEBD address is 770000. The second bit represents the UBE whose BEBD 
ddress is 770020 and so on.A maximum of 4 consecutive UBEs are 
lLlowed up to the maximum address of 770076. The addresses of the 
first UBE to be examined are then calculated and tests 1-37 are run. 


The program then checks if more exercisors are to be tested up to a 
aximum of four. When these are done and if there were more than one 
BE, the last test is executec. This tests the passing of grants 


SEQ 0008 





_—— 


between the exercisors. 


7.0 Error Reporting 


rror calls are made via the EMT instruction. The lower byte of the 
instruction is encoded to indicate the error number. For example 
ERROR 1 would be (EMT+1) or 104001. Once an error instruction is 
executed, an error handler routine will then process the error call. 
The error message to be typed is determined from the item table at the 
beginning of the program. Item 1 corresponds to error 1 and so on. 
The an table contains a series of pointers to the message to be 
typed. 


very time an error occurs, the PC of the error call is typed out. 

This will tell the user the exact test where the error occurred. Many 
times other pertinent information is typed out as the contents of 
registers and bad addresses. 


Ll messages refer to the UBE. For example, the message ‘‘DATI failed 
to ane ready'’ means that the UBE when it did a DATI failed to set its 
ready. 


It should be pointed out when trouble —— a failing board, that 
the first error reported should be the first one fixed. This is 
because the nature of the hardware and software can cause additional, 
false or misleading error messages to appear after the first one. 
Since the tests build on one another and involve previously tested 
hardware, it will aid in the fault isolation to look up the tests 
previously run to know which hardware has been tested.Also.when 
ultiple UBEs are being tested,a UBE can fail in such a way as to 
cause false error reports on a good board.This is especially true when 
the first failing UBE reports a ‘fatal error’’.Due to this,it is 
oe ge that the first failing board reported should be repaired 
before proceeding to test the others. 


8.0 Handlers and Common Routines 


Trap Handler 


uses the trap instruction. The lower byte of the 

is encoded differently for each of the different routines 

When a call for a routine is executed a trap occurs to 

located at STRAP. The handler then determines by looking 

byte which address to go to for servicing the call. The 
following routines use this handler: 


1. TYPE - this routine is used to type ASCIZ messages. 


SEQ 0009 
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TYPOC, TYPOS, TYPON = these routines are used to change a 
binary number to a 6 digit octal number and type it. 


TYPDS = this routine converts a binary number to decimal 
number and types it. 


B.2 Scope Handler 


This handler is called via the 'IOT' trap. When ‘scope’ is executed 
an ‘l10OT* trap occurs to the memory location '$SCOPE'. Depending on 
the switch settings, the handler then decides to loop on test, loop on 
error etc. The scope statement that is located at the first 
instruction of the following test is the one that enables the desired 
action (looping etc.) for the present test. 


B.3 Error Handler 


This handler uses the 'EMT' trap. The lower byte of the instruction 
is encoded to indicate the error number. For example ERROR 1 would be 
(EMT+1) or 104001. Once an error instruction is executed the error 
determines the message to be typed. An item table at the 
beginning of the program contains pointers for each message to be 
Each item corresponds to each error (Item 1 corresponds to 
The ‘ERRTYP’ routine then processes the table for the final 

error type out. 


8.4 Trap Catcher 


This is a series of instructions starting in location 0 to detect 
eters traps and interrupts to the trap and interrupt vector area 
of memory. 


ach vector PC address is loaded with the address of the next 
location. The next location is loaded with a halt. Thus an illegal 
trap or interrupt will cause a halt at the trap PSW location plus 2. 


Once a halt occurs, by examining the contents of the address pointed 
to by the stack, the value of the PC when the trap or interrupt 
occurred can be determined. 


B.5 Power Down and Up Routines 


hen a power fail condition occurs, the contents of registers RO-R7 
re saved on the stack. When the power returns, the same registers 
re restored. 


SEQ 0010 
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8.6 CLRREG Routine 


This subroutine will clear all the registers and error conditions of 
the uBE presently being tested. 


B.7 RCATCH Routine 


This routine restores the trap catcher to the vector area of the UBE 
presently being tested. 


8.8 CRDY Routine 
This routine checks for the ready bit to set from the UBE presently 


being tested. If ready fails to set in a time > 100 microseconds, the 
LSB of register R4 is set to a one. 


8.9 DINT Routine 
This routine is used to disregard interrupts from the UBE under test. 


It places the address of the next location in the UBE's vector area. 
The next location then contains an ‘'RTI' instruction. 


B.10 RVEC Routine 


This subroutine restores the vector area 0-56 from the stack and puts 
the trap catcher in the remaining locations. 


8.11 TERRPC Routine 


This routine is used any time an error occurs. It types out the PC of 
the error message, AND THE TEST NUMBER, 


SEQ 0011 
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000001 


001100 


000011 


177776 
177774 
177772 


177570 
177570 


000000 


000007 


02 
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-TITLE UNIBUS EXERCISOR MODULE DIAGNOSTIC 
s*COPYRIGHT (C) OCT 29,1974 

:*DIGITAL EQUIPMENT CORP. 

s*MAYNARD, MASS. 01754 


;* 
<a BY WARREN SALTZ 


i STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
paren eee (MAINDEC=11-DZQAC-C3), JAN 19, 1977. 


STN N=1 
- SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 
INHIBIT MOST TYPEOUTS EXCEPT ERROR 
INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

WHEN SET, INHIBIT TEST 6 
TEST POWER DOWN 

INHIBIT TEST OF UBE 4 
INHIBIT TEST OF UBE 3 
INHIBIT TEST OF UBE 2 
INHIBIT TETS OF UBE 1 

* SBTTL BASIC DEFINITIONS 


cn hee OF THE STACK POINTER **#* 1100 *#* 


STACK= 
:;BASIC DEFINITION OF ERROR CALL 


-EQUIV EMT,ERROR 
-EQUIV I0OT,SCOPE ::BASIC DEFINITION OF SCOPE CALL 


eee Wammeaed DEFINITIONS 


eee enennnee eee & BC 


SoH MVWEUOO —-MWEuW 


T= :;CODE FOR HORIZONTAL TAB 
LF= 12 ;;CODE FOR LINE FEED 
CR= 15 :;CODE FOR CARRIAGE RETURN 
CRLF= 200 3;CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 : PROCESSOR STATUS WORD 


::STACK LIMIT REGISTER 

7;PROGRAM INTERRUPT REQUEST REGISTER 
7 HARDWARE SWITCH REGISTER 

DDISP= 177570 3 ;HARDWARE DISPLAY REGISTER 


;*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 20 GENERAL REGISTER 


_—— 


R1= 21 7 GENERAL REGISTER 
R2= %2 ;2;GENERAL REGISTER 
R3= %3 ;;GENERAL REGISTER 
R4= ma 7 ;GENERAL REGISTER 
R5= z5 7;GENERAL REGISTER 
R6= %6 ;;GENERAL REGISTER 
R7= 17 7;GENERAL REGISTER 
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CZKUBB.?11 


000006 
000007 


000000 


000340 


100000 


000001 


100000 


N 1 
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BASIC DEFINITIONS 


3;STACK POINTER 


;;PROGRAM COUNTER 


IONS 

: PRIORITY 
;;PRIORITY 
: PRIORITY 
; PRIORITY 
: PRIORITY 
: PRIORITY 
: PRIORITY 
7;PRIORITY 


LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 


3*’"SWITCH REGISTER’ SWITCH DEFINITIONS 
= 100000 


:*DATA BIT DEFINITIONS (BITOO TO B1T15) 
100000 


SP= 26 

PC= %7 
:*PRIORITY LEVEL DEFINIT 
PRO= 0 

PR1= 40 

PR2= 100 

PR3= 140 

PR4= 200 

PR5= 240 

PR6= 300 

PR7= 340 

SW15 00 
SW14= 40000 
SW13= 20000 
SWi2= 10000 
SW11= 000 
SW10= 2000 
SwO9= 1000 
swO8= 400 
swO7= 200 
SWwO6= 100 
swoS= 40 

SW04= 20 

SwO3= 10 

SWO2= 4 

SWOl1= 2 

swod= 1 

EQUIV Sw09,SW9 
EQUIV Sw08,SW8 
EQUIV SWO7,SW7 
EQUIV SW06,SW6 
EQUIV SWOS,SW5 
-EQUIV SW04,SW4 
-EQUIV SWO03,SW3 
EQUIV SW02,SW2 
-EQUIV SWO1,SW1 
-EQUIV Sw00,SWO 
BIT15= 00 
BIT14= 40000 

B1T13= 20000 

BITI2= 10000 

BIT11= 4000 

B1T10= 2000 

BIT09= 1000 

B1T08= 400 

BITO7= 200 

BIT06= 100 

BITOS= 40 

BITO4= 20 

BITO3= 10 

BITO2= 4 


NOUS WNM—O 


SEQ 0013 
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WWWWWAWWRPOMMM NMP MND a em SS OS 
AU BWN $0 OONAUSWWN—OVDOONOULWw 


000174 
000176 


000200 


001100 
001106 
001114 
001120 
001122 
001126 


000046 
000052 


27-APR- 


006002 
000001 


000004 


170000 


000000 


000174 
000000 
000000 


000137 


000137 


001132 


001132 


002632 


000137 
002632 
001014 


015166 
002632 


000200 
000202 
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BASIC DEFINITIONS 


BITOI= 
BITOO= 
EQUIV 
-EQUIV 
EQUIV 
EQUIV 
EQUIV 
-EQUIV 
EQUIV 
-EQUIV 
EQUIV 
EQUIV 


2 


1 

BIT09,BIT9 
B1T08,B1T8 
BIT07,BI1T7 
BIT06,B1T6 
BITOS,BITS 
BIT04,B1T4 
B1T03,B1T3 
B1T02,B1T2 
BIT01,B1T1 
B1T00,B1T0 


B 
27-APR-78 
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SEQ 0014 


3*BASIC ‘CPU’ TRAP VECTOR Sie oat 


ERRVEC= 4 TIME OUT AND OTHER ERRORS 

RESVEC= 10 ; PRESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 sey BUT 

TRIVEC= 14 33; TRACE TRAP 

BPTVEC= 14 ;;BREAKPOINT TRAP (BP, ) 

IOTVEC= 20 3: INPUT/OUTPUT TRAP (I10T) **SCOPE** 
PWRVEC= 24 > :POWER FAIL 

EMTVEC= 30 ; EMULATOR TRAP (EMT) **ERROR** 
TRAPVEC=34 33''TRAP’’ TRAP 

TKVEC= 60 3: TTY KEYBOARD VECTOR 

TPVEC= 64 :: TTY PRINTER VECTOR 

PIRQVEC=240 :;PROGRAM INTERRUPT REQUEST VECTOR 
DB=170000 DATA BUFFER OF LOWEST ADDRESS UBE 
~SBTTL TRAP CATCHER 


-=0 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘'.+2,HALT" 
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
gespone~” * CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD 0 ;; SOFTWARE DISPLAY REGISTER 
SWREG: ~-WORD 0 >; SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 

JMP 7 @#START ;; JUMP TO STARTING ADDRESS OF PROGRAM 


0 #000137,a#200 ;RESTART HERE IF HALTED IN INTERRUPT TEST 


MOV 
MOV #START ,a#202 
CMP R6,#1014 sWAS VECTOR AREA DESTROYED IN INT. TEST? 
BHI B BRANCH IF NO 
JSR PC,RVEC RESTORE VECTOR AREA 

@#START :GO TO BEGINNING OF PROGRAM 


B: JMP 
-SBTTL ACT11 HOOKS 


RSTART: 


SPUR AREER AREA EAE AAREREREREAEARE EEE 


sHOOKS REQUIRED BY ACT11 


e+? ae sSAVE PC 
—_ ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
WORD 0 :32)SET LOC. ty TO ZERO 


* =$SVPC +: RESTORE P 
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001132 
001132 
001134 
001135 
001136 


001212 
001214 


001246 


001132 
000000 
0 


0 
000000 
000000 


15 
000012 


000377 
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COMMON TAGS 
-SBTTL COMMON TAGS 


RARER AA ARTA ATTA AAT AEA TATA AAA E AEE Tee eee eee eee eee eee eee eee 
SSTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
7*USED IN THE PROGRAM. 


SCMTAG: 


$PASS: 


STSTNM: 
SERFLG: . 


SICNT: 


SLPADR: . 
SLPERR: . 
SERTTL: . 
SITEMB: 

SERMAX: . 
SERRPC: 

SGDADR: . 
SBDADR: . 
SGDDAT: 

SBDDAT: . 


SAUTOB: . 
SINTAG: 


SREGAD: . 


SREGO: 
SREG1: 
S$REG2: 
$REG3: 
STMPO: 
STMP1: 


-=1132 


«WORD 
«BYTE 


C 
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0 
0 
0 
0 
0 
0 
0 
0 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


Nm 


oooooc;[eo CO-NoO 


> yd aaah 
<15> 
<12> 
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sz START OF 
3: CONTAINS 
3; CONTAINS 
3; CONTAINS 
3; CONTAINS 
7: CONTAINS 
>; CONTAINS 
3: CONTAINS 
>: CONTAINS 
3; CONTAINS 
3; CONTAINS 
3; CONTAINS 
3; CONTAINS 
3; CONTAINS 
3; CONTAINS 


COMMON TAGS 

PASS COUNT 

THE TEST NUMBER 

ERROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 

MAX. ERRORS PER TEST 

PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD' DATA 
ADDRESS OF ‘BAD' DATA 
*GOOD' DATA 

*BAD' DATA 


; sRESERVED--NOT TO BE USED 


:;AUTOMATIC MODE INDICATOR 
3: INTERRUPT MODE INDICATOR 


ADDRESS OF SWITCH REGISTER 
; ADDRESS OF DISPLAY REGISTER 
:;TTY KBD STATUS 
7: TTY KBD BUFFER 
::TTY PRINTER STATUS REG. ADDRESS 
i: TTY PRINTER BUFFER REG. ADDRESS 
;;CONTAINS NULL CHARACTER FOR FILLS 
::CONTAINS # OF FILLER CHARACTERS aor" 
INSERT FILL CHARS. AFTER A “'LINE FE 
33'"TERMINAL AVAILABLE’* FLAG (BIT<07>= 0: YES) 
>: CONTAINS THE ADDRESS FRCM 
s:WHICH (S$REGO) WAS OBTAINED 
7 :CONTAINS ((S$REGAD) +0) 
3; CONTAINS ((S$REGAD) +2) 
:: CONTAINS ((S$REGAD) +4) 
:; CONTAINS ((S$REGAD) +6) 
;; USER DEFINED 
USER DEFINED 
;;USER DEFINED 
;;USER DEFINED 
::MAX. NUMBER OF ITERATIONS 
: ESCAPE ON ERROR ADDRESS 
::CODE FOR BELL 
; QUESTION MARK 
>: CARRIAGE RETURN 
;:LINE FEED 


PEE SPSS RRR RRRERRR RRR RSSRSASESESA SESE R EASES ESSE ESSE ERR CSCC ES SY 


SEQ 0015 
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-SBTTL ERROR POINTER TABLE 


>*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

3 *NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (S$ERRPC). 

s*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


::POINTS TO THE ERROR MESSAGE 
:;POINTS TO THE DATA HEADER 
::POINTS TO THE DATA 

;;POINTS TO THE DATA FORMAT 


001250 SERRTB: 
7 1TEM1 


001250 020676 


001256 000000 
001260 020760 


001266 000000 


001270 021054 
021121 
021130 
001276 000000 


001300 021134 
021202 
021242 
001306 000000 


001310 021252 
001312 021202 
001314 021242 
001316 000000 


001320 021320 
001322 021202 
001324 021242 
001326 000000 


001330 021370 
001332 021432 
001334 021510 
001336 000000 


001340 021516 
001342 000000 
001344 000000 
001346 000000 
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001350 021603 EM9 
001352 000000 
001354 000000 
001356 000000 


001360 021644 
001362 000000 
001364 000000 
001366 000000 


001370 021705 
001372 000000 
001374 000000 
001376 000000 


001400 021751 
001402 000006 
001404 000000 
001406 000000 


001410 000000 
001412 000000 
001414 000000 
001416 000000 


001420 022016 
001422 000000 
001424 000000 
001426 000000 


001430 022047 
001432 
001434 
001436 000000 


001440 022155 
000000 
000000 
001446 000000 


001450 022250 


=z 
=’ 
Oo 


=z 
+ 
— 


os 
nm 
=z 
— 
~m 


— 
wm 


—"s 

ea 
= 
— 
™ 


— —_ 
oa w 
—_ we — 
oa ww 


001456 000000 


001460 022334 
001462 
001464 
001466 000000 


001470 022436 
001472 022517 
001474 021130 
001476 000000 


001500 022540 
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001502 
001504 
001506 


001510 
001512 
001514 
001516 


001520 
001522 
001524 
001526 


001530 
001532 
001534 
291536 


001540 
001542 
001544 
001546 


001550 


001556 


001560 
001562 
001564 
001566 


001570 
001572 
001574 
001576 


001600 
001602 
001604 
001606 


001610 
001612 
001614 
001616 


001620 
001622 
001624 
001626 


001630 
001632 


000090 
000000 
000000 


022607 
000000 
000000 
000000 


022645 
000000 
000000 
000000 


022710 
000000 
000000 
000000 


022754 


000000 
023112 


000000 
023152 


000000 


023213 
023023 
023100 
000000 


023253 
000000 
000000 
000000 


023302 
000000 
000000 
000000 


023331 
000000 
000000 
000000 


023361 
000000 


. 
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7 1TEM 


7; ITEM 


; ITEM 


7; ITEM 


7 1TEM 


ITEM 


: ITEM 


: ITEM 2 


; ITEM 


;1TEM 


7 ITEM 


Nm Nm 
Las) 


—m 
WG 
ooom oocoom ooo 


— 
Oo 


0 


mn 


= 
Mm 
— 


=z 
~m 
Nm 


=z 
nm 
Iw 


SEQ 0018 


G 2 
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001634 000000 0 
001636 000000 0 
s ITEM 32 


001640 023411 EM32 
001642 023023 DH24 
001644 023100 
001646 000000 


001650 023460 
001652 
001654 
001656 000000 


001660 023515 
023565 
021130 
001666 000000 


001670 023604 
001672 023661 
001674 021046 
001676 000000 


001700 023707 
001702 023756 
001704 021130 
001706 000000 


001710 023766 
001712 023661 
001714 021046 
001716 000000 


001720 024025 
001722 023661 
001724 021046 
001726 000000 


001730 024115 
001732 000000 
001734 000000 
001736 000000 


001740 024173 
001742 000000 
001744 000000 
001746 000000 


001750 024251 
001752 
001754 
001756 000000 


001760 024313 
001762 000000 
001764 000000 


— i | 
~—~= 
WwW 

a 


ouou7”g 
“=z 
Ww 
oa 


ouou7g 
=—= 
NW 
ww 


ww 
oO 

mn oo7Jo 

z =—=z 

Ww OW 

oOo uw 


= 

Oo 
= 
= 
Oo 


=~ 
— 
oom oo ooom ooo 
= 
os 


~ 
Nm 
z 
= 
™m 
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001766 000000 


0 
sITEM 43 
001770 024352 EM43 


001772 024436 DH43 
001774 021046 he 


7 1TEM 


001776 000000 


002000 024467 
002002 000000 
002004 000000 
002006 000000 


002010 024533 
002012 
002014 
002016 000000 


002020 024560 
002022 024630 
002024 021242 
002026 000000 


002030 024666 
002032 024436 
002034 021046 
002036 000000 


002040 024666 
002042 000000 
002044 000000 
002046 000000 


002050 024744 
002052 000000 
002054 000000 
002056 000000 


002060 024744 
002062 024436 
002064 021046 
002066 000000 


002070 025023 
002072 000000 
002074 000000 
002076 000000 


002100 025054 
002102 000000 
002104 000000 
002106 000000 


002110 025107 
002112 
002114 
002116 000000 





EXERCIS 
-P11 


002120 
002122 
002124 
002126 


002130 


002136 


002140 
002142 
002144 
002146 


002150 
002152 
002154 
002156 


002160 
002162 
002164 
002166 


002170 
002172 
002174 
002176 


002200 
002202 
002204 
002206 


002210 
002212 
002214 
002216 
002220 
002222 
002224 
002226 


002230 


002236 
002240 


002246 


OR MODULE DIAGNOSTIC 
27-APR-78 15:02 


025161 
000000 
000000 
000000 


024352 
000000 
000000 
000000 


025424 
000000 
000000 
000000 


025503 
000000 
000000 
000000 


025533 
022133 
021130 
000000 


025554 
000000 
000000 
000000 


025622 
000000 
000000 
000000 


025650 
000000 
000000 
000000 


025677 


000000 
025727 


0 
000000 


025757 
000000 
000000 
000000 


I 
MACY11 30A(1052) 27-APR-78 


ERROR POINTER TABLE 
ITEM 54 
EM5S4 


“w 
ww 


ooonm era ooom ooo 
uw 
o 


ITEM 


=z 
~~ 
Ww 


“ww 
oa 


Ww 

N 
=z 
wa 
N 


2 
15:03 PAGE 10 


SEQ 0021 
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002250 026055 EM65 
DH65 


002256 000000 


002260 026154 
002262 000000 
002264 000000 
002266 000000 


002270 026202 
002272 026135 
002274 021130 
002276 000000 


002300 000000 
002302 026135 
002304 021130 
002306 000000 


002310 026244 


002316 000000 
002320 026275 


002326 000000 


002330 026356 
002332 
002334 
002336 000000 


026404 


002346 000000 


002350 026434 
000000 
000000 
000000 


026501 
000000 
000000 
000000 


002370 026523 
002372 000000 
002374 000000 
002376 000000 


002400 026543 


m 
=z 
™~ 
w 


ooom eee”? ooo 
~ 
= 
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002402 000000 
002404 000000 
002406 000000 


002410 026570 
002412 000000 
002414 000000 
002416 000000 


002420 026616 
002422 021202 
002424 021242 
002426 000000 


002430 000000 
002432 000000 
002434 000000 
002436 000000 


002440 026656 


000000 
026720 


002456 000000 


002460 026744 
002462 000000 
002464 000000 
002466 000000 


002470 027011 
002472 000000 
002474 000000 
002476 000000 


027072 


:MAP OF UBE PRESENT 

; TEMPORARY MAP 

;SWITCH POINTER 

:;BEBD ADDRESS OF UBE UNDER TEST 

:BECC ADDRESS OF UBE UNDER TEST 

;BEBA ADDRESS OF UBE UNDER TEST 

:BECR1 ADDRESS OF UBE UNDER TEST 
sBECR2 ADDRESS OF UBE UNDER TEST 
CLEAR ERROR ADDRESS OF UBE UNDER TEST 
; INTERRUPT VECTOR ADDRESS OF UBE UNDER TEST 
GO ADDRESS 

;BEBD ADDRESS OF FIRST UBE TESTED 
;BECC ADDRESS OF FIRST UBE TESTED 


o 
oo-oooo°ooeoooo 


002540 000000 : WORD 
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CZKUBB.P11 27-APR-78 15:02 ERROR POINTER TAB SEQ 0024 


eester 000000 BE1BA: .WORD ;BEBA ADDRESS OF FIRST UBE TESTED 
: ;BECR1 ADDRESS OF FIRST UBE TESTED 

sBECR2 ADDRESS OF FIRST UBE TESTED 
CLEAR ERROR ADDRESS OF FIRST UBE TESTED 
: INTERRUPT VECTOR ADDRESS OF FIRST UBE TESTED 
;BEBD ADDRESS OF SECOND UBE TESTED 

:BECC ADDRESS OF SECOND UBE TESTED 

;BEBA ADDRESS OF SECOND UBE TESTED 

;BECR1 ADDRESS OF SECOND UBE TESTED 

s:BECR2 ADDRESS OF SECOND UBE TESTED 

CLEAR ERROR ADDRESS OF SECOND UBE TESTED 

: INTERRUPT VECTOR ADDRESS OF SECOND UBE TESTED 
;BEBD ADDRESS OF THIRD UBE TESTED 

;BECC ADDRESS OF THIRD UBE TESTED 

:BEBA ADDRESS OF THIRD UBE TESTED 

;BECR1 ADDRESS OF THIRD UBE TESTED 

sBECR2 ADDRESS OF THIRD UBE TESTED 
CLEAR ERROR ADDRESS OF THIRD UBE TESTED 

: INTERRUPT VECTOR ADDRESS OF THIRD UBE TESTED 
;BEBD ADDRESS OF FOURTH UBE TESTED 
sBECC ADDRESS OF FOURTH UBE TESTED 

;BEBA ADDRESS OF FOURTH UBE TESTED 

s;BECR1 ADDRESS OF FOURTH UBE TESTED 

;BECR2 ADDRESS OF FOURTH UBE TESTED 

CLEAR ERROR ADDRESS OF FOURTH UBE TESTED 

: INTERRUPT VECTOR ADDRESS OF FOURTH UBE TESTED 
:COUNT OF UBE TESTED 

; INDEX NUMBER FOR ADDRESS OF 1,2,3.4 UBE 


FRR AAAAE EAA RAE TEA AEA AREA AA AREA AAAE RARER KERERE 
g TASHSHH EHH S HALE HSE AE AHHH SAA AATAAAAAAHAHAAAAAAAAAAAAAAHHAHAATee 
002632 START: 
-SBTTL INITIALIZE THE COMMON TAGS 
>: CLEAR THE COMMON TAGS (S$CMTAG) AREA 
002632 012706 001132 MOV #SCATAG,R6 3:FIRST LOCATION TO BE CLEARED 
CLR (R6)+ 3;CLEAR MEMORY LOCATION 
001172 CMP #SWR,R6 ;;DONE? 
BNE -6 ;;LOOP BACK IF NO 
002646 012706 001100 MOV #STACK, SP 3; SETUP THE STACK POINTER 
sc INITIALIZE A FEW VECTORS 
002652 012737 016470 000020 MOV #SSCOPE ,A@#IOTVEC of VECTOR FOR SCOPE ROUTINE 
002660 #340, ,a#IOTVEC+2 ;;LEVEL 7 
#SERROR, a#EMTVEC pe «VECTOR FOR ERROR ROUTINE 
#340, a#EMTVEC+2 s:LEVEL 7 
#STRAP ,@#TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
#340 ,Q#TRAPVEC+2;LEVEL 7 
#SPWRON ,Q@#PWRVEC ;; POWER FAILURE VECTOR 
#340 a#PWRVEC+2 ;;LEVEL 7 
SENDCT, SEOPCT ::SETUP END-OF -PROGRAM COUNTER 
STIME s: INITIALIZE NUMBER OF ITERATIONS 
s:CLEAR THE ESCAPE ON ERROR ADDRESS 
: HINITIALIZE. THE LOOP ADDRESS FOR SCOPE 
012767 002764 MOV - SLPERR ;SETUP THE ERROR LOOP ADDRESS 
ziSIZE FOR A wanouane SWITCH REGISTER. IF NOT FOUND OR IT IS 
;;EQUAL TO A ‘'=1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 
002772 013746 000004 MOV a#ERRVEC, -(SP) ;;SAVE ERROR VECTOR 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


002630 000000 





UNIBUS EXERCISOR MODULE DIAGNOSTIC 


CZKUBB.P11 


002776 
003004 
003012 
003020 
003026 
003030 
003032 
003036 
003040 
003046 
003054 


003060 


003262 


003266 


003310 


27-APR-78 
012737 


001012 
000403 


012637 
032777 


000415 
022626 


15:02 
003032 
177570 


177570 
177777 


003040 
000176 
000174 
000004 
010000 


027665 


000001 


177332 
000020 


000020 
000006 
000006 
010000 


020342 
177264 


001245 


000010 


177240 


013146 
012560 


167760 


167766 


000004 
176160 
176154 
176144 


176124 
176120 


176104 


177376 
176016 
000004 
000006 


000004 
175760 


000000 


177222 


2 
177206 


2 
MACY11 30A(1052) 27-APR-78 15:03 PAGE 14 
INITIALIZE THE COMMON TAGS 


#64$,QMERRVEC ;;SET UP ERROR VECTOR 

#OSWR,SWR 7;SETUP FOR A HARDWARE SWICH REGISTER 

#ODISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 

#-1,aSWR 7: TRY TO REFERENCE HARDWARE SWR 

66$ :;BRANCH IF NO TIMEOUT TRAP OCCURRED 
;;AND THE HARDWARE SWR IS NOT = -1 

65$ ; BRANCH IF NO TIMEOUT 

#658, (SP) :;SET UP FOR TRAP RETURN 


#SWREG, SWR : POINT TO SOFTWARE SWR 
#DISPREG, DISPLAY 
(SP)+,@#ERRVEC ;;RESTORE ERROR VECTOR 


BIT #SW12,aSUR : INHIBIT TYPEQUTS? 
BNE START1 BRANCH IF YES 
TYPE ,MSG16 ;UBE MODULE TEST 
TYPE ,MSG12 ; JUMPER 4 P ieee BE IN TO PREVENT MULTIPLE SSYNS 
START1: EMAP INIT. EMA 
#STACK, SP :SETUP THE ” STACK POINTER 
#1,SPTR SINITIALIZE SWITCH POINTER TO LOOK AT FIRST SWITCH 
#START,SLPERR :SET UP RETURN FOR ERROR1 
#ATRAP ,a#4 ;SET UP MAP TRAP 
#340,a#6 SET PSW PRIORITY=7 
#0B,R1 DATA REG ADDR. OF FIRST REG 
#1,R0 :LO PTER 
(R1) :LOOK IF EXER. PRESENT.NO TRAPS 
RO, EMAP :YES,INDIC. EXER. PRESENT 
#20,R1 ;LOOK AT NEXT EXER. ADDR. 
RO UPDATE PTER 
RO, #20 zAT LAST UBE? 
LOOP1 sBRANCH IF NOT AT LAST POSSIBLE EXER. 
ae RESTORE TRAP CATCHER 


ae 3 
#SW12,aSWR : 'NHIBIT TYPEOUTS? 
BNE 1$ ;BRANCH IF YES 
TYPE ,MSG1 3; TYPE MAP 
MOV EMAP,-(SP) +: SAVE EMAP FOR TYPEOUT 
TYPOC 3:G0 TYPE=--OCTAL ASCII(ALL DIGITS) 
hie . SCRLF : 


R IADD :GO CALC. ADDRESSES OF UBE 


CMP (SP)+, (SP)+ : RESTORE THE STACK 

CMP RO,#10 AT END OF UBE ADDRESS SPACE? 

BNE LOOP2 NO LOOK AT NEXT EXER. 

CMP EMAP,#0 :YES,1S MAP = 0? 

BNE A 3NO,BRANCH TO A 

ERROR 01 NO RESPONSE TO REG ADDRESSES OR NO DEVICE PRESENT 

JSR PC, TERRPC : TYPE PC OF ERROR MSG 

JMP SEOP :GO TO END OF TEST 
MMMM 

ROUTINE TO CALCULATE ADDRESSES OF UBE TESTED 
AILITIAL TTT LTT ATLA ALATA ALA TLL AAT TA TAAL 
1ADD: MOV #167760, BEBD ; BD 

MOV #167762, BECC 

MOV #167764, BEBA 3 

MOV #167766, BECRI INITIALIZE BECRI 


SEQ 0025 





UNIBUS EXERCISOR MODULE DIAGNOSTIC 
78 15:02 


CZKUBB.P11 
003316 


003554 


003560 


27-APR- 
012767 


104401 


016701 


062767 
012767 


000005 


167776 


002536 
002630 
002536 


000004 


177034 
100000 


177020 


010736 
000020 


010722 
176774 


176764 
176756 
177064 
027516 
176744 


001245 


177044 
002516 


002534 
000016 
003632 


003632 
175306 


177202 


177164 


177240 


177062 


177026 


177006 


175450 


177022 


175324 
175320 


MACY11 30A(1052) 
INITIALIZE THE COMMON TAGS 


#167776, BECR2 


#BE1BD RO 
(RO)+ 

RO, #NO 

1$ 

#BE1BD ,NO 
EMAP , TRAP 


INTVEC 


TMAP 
Smee io 


TMAP 
ACALC 


LAST 
esate 


LAST 
‘ioe 
ASL SPTR 
BR ACALC 
ASL SPTR 


INC UCNT 
TYPE ,MSG13 


BEBD ,~(SP) 
TYPOC 


N 2 
27-APR-78 


03 PAGE 15 


s INITIALIZE BECR2 
; INITIALIZE BERE 
s INITIALIZE BEGO 
INITIALIZE INTERRUPT VECTOR 
;GET POINTER TO PERMANENT VECTOR AREA 
;CLEAR PERMANENT VECTOR AREA 
ENTIRE AREA CLEARED? 

BRANCH IF NO 

‘ioe mae t ‘a's TO BE1BD 

E MAP TO WORK AREA 


BEBD TESTING 
BECC TESTING 
BEBA TESTING 
BECR1 TESTING 
BECR2 TESTING 
BERE TESTING 
INTERRUPT VECTOR 


INIT. CARRY 

;LOOK FOR BIT en EXERCISOR 
;CLEAR MSB IF 

z1F EXERCISOR PRESENT GO SEE IF TO BE TESTED 
ZANY EXERCISORS LEFT? 
;BRANCH IF MORE 
:GO TO LAST TEST 
TESTED 4 UBE? 

;BRANCH IF NO 

:GO TO LAST TEST 

SHOULD THIS UBE BE TESTED? 
BRANCH IF YES 
;ROTATE POINTER TO NEXT SWITCH 
;LOOK FOR NEXT UBE 
ROTATE POINTER TO NEXT SWITCH 
;UPDATE COUNT OF UBE TESTED 
; TESTING UBE WITH BEBD ADDRESS: 
:;SAVE BEBD FOR TYPEOUT 
3:GO0 TYPE--OCTAL ASCII(ALL DIGITS) 


TYPE ,$CRLF 
BUI 
ROUTINE TO STORE TEMPORARY ADDRESS OF UBE TESTING IN PERMANENT LOC 
NA NG ANN RAIA ABEND 


RO 
tobe: RID 
RO, #BEGO 


F 
#16,N0 


#FIRST,SLPADR 
#FIRST,SLPERR 
CLRB STSTNA 
RESET 


GET POINTER TO BE1BD 
;GET POINTER FOR BEBD 
SAVE ADDRESSES 

;ALL SAVED? 

BRANCH IF NO 

;UPDATE PTER TO NEXT UBE 


INIT. SCOPE WHEN MORE THAN 1 UBE 
INIT. SCOPE WHEN MORE THAN 1 UBE 
: INIT. TEST NUMBER 

: INIT. ALL UBE FOR LOOPS 


seenetceeeeerereeeeeeeterertereeeterereetererereeetereteteeeeeeeete 


:*TEST 1 


TEST ALL UBE REG CAN BE CLEARED 


SEQ 0026 
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;*RO CONTAINS ADDRESS OF REG UNDER TEST 
* 
i*lF THIS TEST FAILS, ALL FOLLOWING TESTS FOR THIS MODULE ARE ABORTED. 


SRR RAE AERA AEA A AAA AERA RERAAEARAAAAKARERAARAAAE EEE 
003630 000004 r811; E 
001100 FIRST: #STACK,SP RESTORE STACK 
177776 #340 ,a#PSw ;LOCK OUT INTERRUPTS 
000004 #STRAP ,a#4 ;SET UP NSSYN TRAP 
000006 SET PSW PRIORTY =7 
176640 :D0 DATO TO CLEAR PB BIT IF SET 
CLEAR ERROR CONDITIONS 
176620 M :SETUP TO LOOK AT FIRST REG. 
TO1LO1: 0) :CLR UBE REG 
176620 C TESTING BECR1? 
01L04 BRANCH IF YES 
1S REG CLEARED? 
B BRANCH IF YES 
175276 TO1L03: 7 SAVE be sere ADDRESS 
175274 MOV (RO), $REG1 SAVE BAD DAT 
ERROR D2 FATAL ERROR: Rec FAILED TO CLEAR 
176576 CMP RO,BECR2 01D BECR2 FAIL 
BNE T01L06 BRANCH IF NO 
020000 176566 BIT #20000,aBECR2 WAS CCOVF =1? 
BEQ T01L06 ;BRANCH IF NO 
027560 TYPE ,MSG14 sDISREGARD BIT 13=1 OF BECR2 
012456 TO1L06: JSR PC, TERRPC TYPE PC OF ERROR MSG 
BR TOILO5 RESTORE TRAP 
TOILO2: TST (RO)+ ; INC ADDRESS 
BR TO1L01 CONTINUE LOOP 
000200 176536 TO1L04: #200, aBECR1 sALL BITS IN ot ge A ee RDY? 
TO1L03 ;BRANCH TO ERROR I 
176532 BECR2,R0 : INDICATE LOOKING AT NBECR2 
176530 aBERE ;RESET ERROR CONDITIONS 
176522 @BECR2 sCLEAR BECR2 
157777 176514 #157777 ,aBECR2 :I1S BECR2 =0 EXECPT CCOVF? 
01L03 NO, TYPE ADDRESS AND DATA ERROR 
000006 000004 RESTORE TRAP CATCHER 
000006 
004026 000414 ::GO0 TO NEXT TEST 


004030 011667 175160 STRAP: (SP), $REGO SAVE PC FROM STACK 
004034 104003 OR D3 FATAL ERROR:CPU DID NOT RECEIVE SSYN 
004036 004767 012366 JSR PC, TERRPC TYPE PC OF ERROR MSG 


004042 012737 000006 000004 TO1L05: MOV #6,a#4 RESTORE TRAP CATCHER 
004050 005037 000006 CLR a#6 
004054 000167 010352 JMP NUBE1 TEST NEXT UBE 


POE SPSS CSIC Seti rece rr ri irre iii rit iii titi itis titi titi iit 

i*TEST 2 TEST BITS 1-6,8-14 OF BECR1 AND BITS 0-3,14 OF BECR2 CHANGE 
:*R2, R3 CONTAIN THE TRUE AND COMPLEMENT TEST DATA 

7*R4 CONTAINS A POINTER TO THE REG ADDRESS BEING TESTED 

:*R5 CONTAINS THE MASKED CONTENTS OF THE REG BEING TESTED 

;*STMP1 CONTAINS THE MASK FOR THE REG 
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;*IF THIS TEST FAILS, ALL FOLLOWING TESTS FOR THIS MODULE ARE ABORTED 
SERRATE EERE AEE R AAA ARAAEERAKEKAREEREKE 
000004 TST2: PE 
001100 #STACK,SP ;RESTORE STACK 
000340 177776 #340, a#PSw :LOCK OUT INTERRUPTS 
2 #52652,R2 :SETUP TEST DATA BECRI 
#25324,R3 :SETUP COMP. TEST DATA BECR1 
#BECR1,R4 [LOAD ADDRESS PTER. FOR BECR1 
@BERE [CLEAR ERROR CONDITIONS 
175104 #177777, STMP1 :LOAD MASK TO LOOK AT ALL BECR1 
175100 TO2L03: STMP1,R5 [LOAD RS WITH MASK 
(R4) ,R0 :GET ADDRESS OF BECR TESTING 
R2, (RO) [LOAD BECR WITH DATA 
(RO) ,R1 :GET CONTENTS OF BECR 
R1 SONLY LOOK AT BITS 
R1,R5 [SET IN MASK =R5 
R5,R2 [DATA OK? 
T02L01 :BRANCH IF YES 
175044 TO2L02: (R4) , SREGO :SAVE BECR ADDRESS 
175042 (RO) ,$REG1 ;SAVE BECR BAD DATA 
175040 R2,$REG2 :SAVE GOOD DATA 
ERROR D6 ZFATAL ERROR: CONTROL REG HELD WRONG DATA 
176340 CMP (R4) ,BECR2 :D1D BECR2 FAIL? 
BNE TO2L04 :BRANCH IF NO 
020000 176330 BIT #20000, aBECR2 :WAS CCOVF=1? 
BEQ TO2L04 :BRANCH IF NO 
027560 TYPE ,MSG14 :DISREGARD BIT 13=1 OF BECR2 
012220 TO2L04: JSR PC, TERRPC :TYPE PC OF ERROR MSG 
010212 UBE :TEST NEXT UBE 
TO2L01: :MFER NEW TEST DATA 
;LOAD BECR WITH COMP.DATA 
:GET CONTENTS OF BECR 
175000 [LOAD RS WITH MASK 
1 :ONLY LOOK AT BITS 
[SET IN MASK =R5 
DATA OK? 
:BRANCH IF NO 
04001? :SETUP TEST DATA BECR2 
000005 R3 :SETUP COMP. TEST DATA BECR2 
002526 ECR2,R4 :LOAD ADDRESS PTER. FOR BECR2 
157777 174746 ;HAVE MASK LOOK AT ALL BECR2 EXECPT CCOVF 
176242 0,BECR : TESTED BECR2? 
004264 001316 TO2L03 :NO, BRANCH TO START TEST OF BECR2 


PLARRARA AAA AA AAA A AAA AAA AAR AAA AA AAA ETAT AAA ATA Eee eee eee eee 
s*TEST 3 FLOAT A ‘1° THROUGH BEBD, BECC, BEBA 

:t 

;*RO CONTAINS A POINTER TO THE REG ADDRESS BEING TESTED 

3*R1 CONTAINS TEST DATA 

:* 


;*IF THIS TEST FAILS, ALL FOLLOWING TESTS FOR THIS MODULE ARE ABORTED 
WweASRASAARRRALASASAAAARSALAAREEASLE ALARA S ALES ESSA ESLER ESE SEAS ESS 
004266 000004 TST3: SCOPE 
004270 001100 MOV #STACK,SP ;RESTORE STACK 
004274 000340 177776 MOV #340, ae¢PSW ;LOCK OUT INTERRUPTS 
004302 012700 002516 MOV #BEBD,RO :GET BEBD ADDRESS PTER. 
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004306 012701 000001 TO3L04: . ;SETUP TEST DATA REG 
TO3L03: ‘ ;PUT TEST DATA IN REG 
TEST REG 
BRANCH IF OK 
174670 (RO) , $REGO SAVE FAILING We ADDRESS 
174670 R1,$REG2 ;SAVE GOOD DATA 
174662 @(RO)+,$REG1 SAVE BAD DATA 
ERROR 04 :FATAL ERROR:REG FAILED TO FLOAT A ‘1° 
012066 JSR PC, TERRPC TYPE PC OF ERROR MSG 
010060 JMP NUBE TEST NEXT UBE 
TO3L01: TST R1 TESTED ALL 16 BITS? 
BMI TO3L02 BRANCH IF YES 
ASL R1 TEST NEXT BIT 
BR T03L03 ; CONTINUE LOOP 
176140 TO3LO02: CMP (RO)+,BEBA TESTED LAST REG? ALSO UPDATE ADDR. PTER. 
004362 001351 BNE TO3L04 BRANCH IF REGS NO” TESTED 


SPER RE EEA EARER EE EE EAA E EE ERE REAR 
S*TEST 4 FLOAT A ‘0’ THROUGH BEBD,BECC,BEBA 
-* 
;*RO CONTAINS A POINTER TO THE REG ADDRESS BEING TESTED 
:*R1 CONTAINS TEST DATA 
-* 
;*IF THIS TEST FAILS, ALL FOLLOWING TESTS FOR THIS MODULE ARE ABORTED 
‘ESS RSSARAAR ARRAS ARASSAARARSASAAS AAAS ASAE SESE S SESE SASS SASS SSS 
004364 000004 TST4: SCOPE 
001100 MOV #STACK,SP ;RESTORE STACK 
177776 MOV #340, aaPSW ;LOCK OUT INTERRUPTS 
MOV #BEBD,RO :GET BEBD ADDRESS PTER. 
177776 TO4L04: MOV #177776,R1 :SETUP TEST DATA REG 
TO4L03: MOV R1,a(RO)+ :PUT TEST DATA IN REG 
CMPa-(RO) RI :TEST REG 
BEQ T04L01 :BRANCH IF OK 
174572 MOV (RO) ,$REGO :SAVE FAILING REG ADDRESS 
174572 MOV R1,$REG2 :SAVE GOOD DATA 
174564 MOV a(RO)+,$REG1 :SAVE BAD DATA 
ERROR 05 TFATAL ERROR: REG FAILED TO FLOAT A ‘0 
011770 JSR PC, TERRPC :TYPE PC OF ERROR MSG 
007762 JMP NUBE :TEST NEXT UBE 
TO4L01: TST R1 :TESTED ALL 16 BITS? 
BPL TO4L02 ;BRANCH IF YES 
ROR R1 ;TEST NEXT BIT 
BR T04L03 :CONTINUE LOOP 
176042 TO4L02: CMP(RO)+,BEBA : TESTED LAST REG? ALSO UPDATE ADDR. PTER. 
004460 001351 BNE TO4L04 ;BRANCH IF REG NOT TESTED 


SURAT AAA AAA AREER AAA AAE AA AAAAAAARARAARAAAEAAREAAAKEKEEE 


:#TEST 5 TEST FOR DUAL ADDRESSING IN REGS 


‘ aTHIS TEST CLEARS ALL REGS AND THEN WRITES INTO THE 

:*REG BEING TESTED. ALL OTHER REGS ARE THEN CHECKED IF THEY WERE 
*SIMULTANEOUSLY WRITTEN. THIS IS THEN REPEATED FOR ALL REGS. 
3*RO CONTAINS ADDRESS OF REG BEING WRITTEN 

:*R1 CONTAINS ADDRESS OF REG BEING EXAMINED 

:*R2 CONTAINS MASK OF BITS TO BE LOOKED AT 
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1006 s*I1F THIS TEST FAILS, ALL FOLLOWING TESTS FOR THIS MODULE ARE ABORTED 
1007 PRR RA RATA AAA ARATE AE REET ET EEA AAA ATTRA 
1008 004462 000004 TSTS: SCOPE 

1009 004464 012706 001100 MOV #STACK,SP sRESTORE STACK 

1010 004470 012737 000340 177776 MOV #340,a#PSW ;LOCK OUT INTERRUPTS 

1011 004476 004767 011466 JSR PC,CLRREG ;CLEAR ALL REG 

1012 004502 016700 176010 MOV BEBD,RO ; INITIALIZE TEST ADDRESS 

1013 004506 016701 176004 TOSLO4: MOV BEBD,R1 s INITIALIZE PTER. 

1014 004512 012710 000002 MOV #2, (RO) ;LOAD TEST REG 

1015 004516 012702 177777 MOV #177777,R2 ; INITIALIZE MASK TO LOOK AT ALL BITS 
1016 004522 030211 TOSLO3: BIT R2,(R1 71S DATA IN REG =0? 

1017 004524 001422 BEQ TOS5L01 BRANCH IF DATA OK(=0) 

1018 004526 020100 CMP R1,RO ;LOOKING AT REG LOADED? 

1019 004530 001420 BEQ TO5L01 > BRANCH IF YES (DATA OK) 

1020 004532 020167 175766 CMP R1,BECR1 ;LOOKING AT BECR1? 

1021 004536 001411 BEQ TOS5L07 ;BRANCH IF YES 

1022 004540 010067 174450 TOSLO8: MOV RO,S$REGO sERROR; SAVE REG ADDRESS LOADED 
1023 004544 010167 174446 MOV R1,$REG1 7SAVE REG ADDRESS EXAMINED 

1024 004550 104007 ERROR 07 ;FATAL ERROR: DUAL ADDRESSING ERROR 
1025 004552 004767 011652 JSR PC, TERRPC ; TYPE PC OF ERROR MSG 

1026 004556 000167 007644 JMP NUBE ; TEST NEXT UBE 

1027 004562 022777 000200 175734 TOSLO7: CMP #200,aBECR1 ;ALL BITS IN BECR1 0 EXCEPT RDY? 
1028 004570 001363 BNE TOS5LO ;BRANCH IF NO 

1029 004572 020167 175730 TOSLO1: CMP R1,BECR2 ;LOOKED AT BECR2? 

1030 004576 001412 BEQ TOSL :BRANCH IF YES 

1031 004600 020167 175720 CMP R1,BECR1 ;PTER UP TO BECR1? 

1032 004604 001005 BNE est ye 3NO, LOOK AT NEXT REG 

1033 004606 016701 175714 MOV BECR2.R :NOW LOOK AT BECR2 

1034 004612 012702 157777 MOV misraer. R2 ;LOOK AT ALL BECR2 EXCEPT CCOVF 
1035 004616 000741 BR TOSLO3 ; CONTINUE LOOKING 

1036 004620 005721 TOSLO6: TST (R1)+ ;UPDATE PTER. 

1037 004622 000737 BR TOSLO3 ;LOOK AT NEXT REG. 

1038 004624 004767 011340 TOSLO2: JSR PC,CLRREG ;CLEAR ALL REG 

1039 004630 020067 175672 CMP RO,BECR2 ;LOADED AND TESTED BECR2? 

1040 004634 001410 BEQ TST6 ;;BRANCH IF YES TO NEXT TEST 

1041 004636 020067 175662 CMP RO,BECR1 ;LOADED BECR1 WITH DATA YET? 

1042 004642 001003 BNE TO5L05 ;BRANCH IF NO 

1043 004644 016700 175656 MOV BECR2,RO 7YES, NOW LOAD BECR2 

1044 004650 000716 BR TOSL04 ; CONTINUE LOOKING 

1045 004652 005720 TOSLOS: TST(RO)+ ;UPDATE ADDRESS OF REG LOADED 

my 004654 000714 BR TO5L04 ;TEST THIS REG 

1048 PUREE AERA AA RARER AAA RETA A AAA EATER ARATE AERT EAE AAR 
iets :#TEST 6 TEST BUS PARITY BIT PB 

1051 eTHIS TEST IS NOT RUN ON THOSE MACHINE 

pd seul Te NO PARITY TRAP (11/05, 11/20) 

1054  SFOR OTHER MACHINES, THIS TEST SHOULD BE DESELECTED IF THE 

1055 ;*MEMORY PARITY OPTION IS NOT PRESENT OR NOT ENABLED, ELSE 

1056 AN ERROR WILL BE REPORTED ALTHOUGH HARDWARE IS FUNCTIONING 

1057 ; *PROPERLY. 

1058 3*$W05=1 INHIBIT TEST 6 AND GO TO NEXT TEST 

1059 PLRARAAAAAA AAA AA ATA AA ATA ARTA ARATE ERATE AAA AREA AAA e Eee eee 
1060 004656 000004 TST6: SCOPE 


004660 012706 001100 MOV #STACK,SP RESTORE STACK 
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032777 
001057 


012737 
012737 
006700 


012737 


012777 


000904 


001426 


000040 


004770 
000340 


000340 
010000 
175560 
011454 
000116 
000116 
010000 
000001 
020611 


000000 


001100 


000200 
177776 


000011 
175372 
000001 


174300 


000010 
000012 


177776 


175564 


000114 


174174 
174226 
000010 
175474 


177776 
175452 
000002 


175424 
175416 


175362 
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SATTITTITTTTTT TTA 
BIT #SwO0 TEST 6? 


TST7 


@SWR 


; INHIBIT 
O° TO NEXT TEST 


BNE :60 
: ROUTINE a Stak cad IF RUNNING UNDER 11/05 OR 11/20 
IF 11/05 OR 11/20 BUSS PARITY TEST IS SKIPPED 
MATL ALLL 
MOV 


PTRAP: 


ITRAP: 


TY 
TO6LO1: : 


#ITRAP,a#10 
MOV #340, an? 
SXT RO 


MOV #340,a#PSW 
MOV #PTRAP,a#114 
MOV #340,a#116 
MOV #10000, @BECR2 
TST @BECR2 

ERROR 08 

JSR PC, TERRPC 
MOV #116,a#114 
CLR a#116 

BR T06L01 

BIT #SW12,aSWR 
BNE TO6L01 


L 
MOV #0,a@BECR2 


SET UP TO GO TO NEXT TEST IF ILLEGAL INST TRAP 
IF INST TRAPS HAVE 11/05 OR 11/20 


SET PSW PRIORITY=7 
;SET UP PARITY TRAP 


sENABLE PB PARITY 

START PARITY TRAP 

:SETTING PB PARITY FAILED TO CAUSE CPU TO TRAP 
TYPE PC OF ERROR MSG 

RESTORE TRAP CATCHER 

sRESTORE TRAP CATCHER 

SKIP MSG 

; INHIBIT TYPEQUTS? 

BRANCH IF YES 

:00 1 ITERATION WHEN TEST NOT NOT RUN 

:BUS PARITY NOT TESTED ON 11/05 OR 11/20 MACHINES 
RESTORE TRAP CATCHER 

RESTORE TRAP CATCHER 

:D0 DATO TO CLEAR PB BIT 


weet PPP R RRR R RRR RRAR AER RRSAA EARS AS SALES ESAS ESAS ES ESS EEE SE SO 


TEST GO WORKS, RDY SETS AND CLEARS, AND THE RELEASE BUS IMMEDIATE WORKS 
tt 
;*THE READY AND GO BIT ARE CHECKED USING A RELEASE 


:*TEST 7 


:*BUSS I 
+t 


MMEDIATE FUNCTION. 


FALSE INTERRUPT ARE CHECKED FOR 


:*IF THE GO OR READY BITS FAIL, ALL FOLLOWING TESTS FOR THIS MODULE ARE ABORTED. 


SFR AAA AAA A AAA AAA AAA ATER AETERARAARAAEAAARARERKAEAAEAAEEE 


TST?7: 


TO7LO?: 
TO7L03: 


SCOPE 

MOV #STACK,SP 

MOV #340,a#PSW 

JSR PC, CLRREG 

MOV #FINT1,@INTVEC 

MOV INTVEC,RO 

MOV #340,2(RO) 

MOV #6003,aBECR1 

BIT #200,aBECR1 
T07L08 


BEQ 

TSTB @BECRI 
BPL TO7L03 
BIT #1,aBECR1 
BEQ TO7L05 


RESTORE STACK 

;LOCK OUT INTERRUPTS 

CLR ALL REG 

:SET UP FOR FALSE INTERRUPT 

:GET INTERRUPT VECTOR 

SET PSW PRIORITY=7 

:SET GO BIT AND DO RELEASE BUSS IMMEDIATE WITH BR4=1 
;LOOK AT RDY BIT 

BRANCH IF NOT CLEARED 

“ALLOW INTERRUPTS 

; INITIALIZE A COUNT TO WAIT FOR RDY=1 
;UPDATE COUNT AND LOOP 

TILL COUNT=10 OR RDY=1 

BRANCH IF fev WAS NOT SET 

READY SET? 

;CONTINUE TO LOOK FOR RDY 

;SEE IF GO BIT CLEARED 

;PROCEED TO NEXT TEST IF YES 


G 3 
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CZKUBB.P11 27-APR-78 15:02 17 TEST GO WORKS, RDY SETS AND CLEARS, AND THE RELEASE BUS IMMEDIATE WORKS SEQ 0032 


005144 004767 011052 JSR PC,RCATCH RESTORE TRAP CATCHER 
ERROR 011 ;FATAL ERROR: GO BIT FAILED TO CLEAR 
011252 JSR PC, TERRPC TYPE PC OF ERROR MSG 
007244 JMP NUBE TEST NEXT UBE 
TO7L04: ERROR O12 :FATAL ERROR: RDY BIT FAILED TO SET 
011240 JSR PC, TERRPC ; TYPE PC OF ERROR MSG 
005170 000407 BR T07L06 ; ABORT UBE TEST 


005172 104123 FINT1: ERROR 083 ERROR: FALSE INTERRUPT WHEN DO RELEASE BUSS IMMED. 
005174 004767 011230 JSR PC, TERRPC TYPE PC OF ERROR MSG 
005200 000745 BR TO7L07 ;NOW CHECK IF RDY=1 AND GO BIT=0 


005202 104020 TO7L08: ERROR 016 FATAL ERROR: RDY BIT FAILED TO CLEAR OR GO DID NOT SET 
005204 004767 011220 JSR PC, TERRPC TYPE PC OF ERROR MSG 

005210 004767 011006 TO7L06: JSR PC,RCATCH RESTORE TRAP CATCHER 

005214 000167 007206 JMP NUBE TEST NEXT UBE 

005220 004767 010776 TO7LO5: JSR PC,RCATCH RESTORE TRAP CATCHER 


-_ 
_ 
oo 
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TEST 10 TEST UBE CAN INTERRUPT ON ALL LEVELS & THE NO INT. SSYN BIT DOESN'T SET 


i 
:*THE PSW PRIORITY IS FIRST SET EQUAL TO THE BR 
*LEVEL OF THE UBE. ALL LEVELS ARE FIRST CHECKED 
*THIS WAY. IF THE UBE FALSELY INTERRUPTS, A 
:*SUBROUTINE, FINTS, WILL DETERMINE THE LEVEL IT 
; INTERRUPTED. 
s*AFTER THIS, THE UBE IS ALLOWED TO INTERRUPT BY 
s*SETTING THE PSW PRIORITY ONE LEVEL BELOW THE BR. 
;*ALL LEVELS ARE THEN CHECKED THIS WAY. THE 
;*PROPER INTERRUPT VECTOR IS TESTED FOR BY SETTING UP 
:*THE ENTIRE VECTOR AREA 0-776 TO DETECT FOR WRONG 
; * INTERRUPTS. 


® 
NOTE: IF THIS TEST IS HALTED IN THE MIDDLE 
He AND IT IS DESIRED TO RESTART THE PROGRAM, 
* THE PROGRAM SHOULD BE RESTARTED AT 1100 AND 
NOT AT 200. 
PEAR AAARE AERA A AAA AERA AAA AERAEEAETEAAARAARERARRARAERAREReeKEAE 
005224 000004 T$110: 
001100 RESTORE STACK 
000340 177776 #340,aaPSu LOCK OUT INTERRUPTS 
010724 PC, CLRREG CLEAR ALL UBE REG 
173754 SP. STMPO SAVE STACK ADDRESS 
CLR RO ZINIT. RO 
TO8L08: (RO)+,=(SP) TSAVE VECTOR AREA 0-56 
000060 CMP #60,R0 TALL SAVED? 
T08L.08 BRANCH IF NO 
000174 a#174, -(SP)  ;SAVE SOFTWARE SwR 
avi76. -(SP) ; 
000002 #341,a82 SET UP VECTOR AREA TO DETECT WRONG INT. VECTORS 
HOV #4,RO INITIALIZE ADDRESS REG 
T08L01: #WwINT,(RO)+ PUT WRONG INTERRUPT PTER IN ALL VECTOR LOCATIONS 
MOV #341, (RO)* :PUT AN ODD PSW IN ALL PSW LOCATIONS 
001000 #1000,R0 TAT END OF VECTOR AREA? 
TOBLOi BRANCH IF NO 
005322 012777 005600 175202 #F INT3 @INTVEC SET UP UBE VECTOR AREA FOR FALSE INT. 
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005330 


005444 


005446 


005576 
005600 


0056 
005640 
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005650 
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012767 


000240 


012777 


000744 
022626 


000445 


012777 
012706 


062767 


DIAGNOSTIC 


000004 


000200 
000005 


000005 
000006 
000300 


000300 
000011 


000002 
000004 
000003 
005552 
000140 


173500 
173476 


000040 
174770 


010552 
010660 


000020 


174734 
000400 


010506 


010614 
00774¢ 


174676 
010570 
005650 


001100 
000040 


173656 
173652 
175152 
177776 


173624 


175112 
173572 
173566 


177776 
175060 


175050 
173532 
173526 
175034 
177776 


177776 


174742 


174726 


174704 
173362 


174662 
173334 


aa 30A(1052) 


#4, SREGO 
#200, SREG1 
#3, aBECR1 
#200, a#PSw 


#5,SREGO 
#240, $REG1 
#240 ,a#PSw 
#5,aBECR1 


#6 ,SREGO 

#300, $REG1 
#300, a#PSW 
#11,aBECR1 


MOV #2,aBECR1 

MOV #4,$REGO 

MOV #3,$REG1 

MOV #TO8L02,aINTVEC 
MOV #140,a#PSW 

NOP 

BR TO8L09 


: INC $REGO 


INC $REG1 


ccc 
ADD #40,a#PSW 
NOP aBeECRI 


JSR PC,RVEC 

* ERROR D17 

JSR PC, TERRPC 
BR T08L06 


: CMP (SP)+,(SP)+ 


BIT #20,aBECR1 
BNE TO8L07 
ASL @BECR1 
BIC #400, aBECR1 
BR TO8L03 


CMP (SP)+,(SP)+ 


JSR PC, TERRPC 
BIT oreeg eaecee 
BEQ 108104 

MOV wit $SREGO 
ERROR 015 

JSR PC, TERRPC 

BR TST11 


: MOV #T08L05,aINTVEC 
: MOV #STACK,SP 
ADD #40,$REG1 


H 
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TEST UBE CAN INTERRUPT ON ALL LEVELS @ THE NO INT. 


SSYN BIT DOESN'T SET 


INDICATE DOING BR=4 

: INDICATE PSW PRIORITY=4 

HAVE UBE DO BR=4 

SET PRIORITY=4 

;UBE SHOULD NOT INTERRUPT HERE 
INDICATE DOING BR=5 

INDICATE PSW PRIORITY=5 

SET PRIORITY=5 

HAVE UBE DO BR=5 

;UBE SHOULD NOT INTERRUPT HERE 
: INDICATE DOING BR=6 

: INDICATE PRIORITY=6 

SET PRIORITY=6 

HAVE UBE DO BR=6 

;UBE SHOULD NOT INTERRUPT HERE 


NOW TEST UBE WILL INTERRUPT WITH PRIORITY ONE LEVEL BELOW BR 


INITIALIZE UBE TO DO BR=4 
INITIALIZE INDICATOR FOR BR=4 
INITIALIZE INDICATOR FOR PRIORITY=3 
SET RETURN ADDRESS WHEN GET PROPER INTERRUPT 
INITIALIZE PSW PRIORITY=3 
:;UBE SHOULD INTERRUPT HERE 
BRANCH TO ERROR IF NO INT. 
: INDICATE BR LEVEL DOING 

: INDICATE PSW PRIORITY LEVEL DOING 
:CLEAR N,Z.V.C 

:SET PRIORITY LEVEL BELOW BR LEVEL 
HAVE UBE DO BR 1 LEVEL ABOVE PRIORITY 
[UBE SHOULD INTERRUPT HERE 

RESTORE TRAP CATCHER AND HANDLER 
ERROR: UBE FAILED TO INTERRUPT 
TYPE PC OF ERROR MSG 
:;BRANCH TO TEST NO INT. SSYN ERROR BIT 
RESTORE STACK AFTER INTERRUPT 

TESTED LAST BR? 
:;BRANCH IF YES TO TEST NO INT. SSYN ERROR BIT 
SHIFT BECR1 FOR NEXT BR LEVEL 
:CLEAR SHIFTED RDY BIT 
:GO TEST NEXT BR 


RESTORE STACK AFTER INTERRUPT 

RESTORE VECTOR AREA 

ERROR: UBE INT. WHEN PSW AT SAME PRIORITY LEVEL 
: TYPE PC OF ERROR MSG 

SEE IF ERROR CONDITION OCCURRED IN BECR2 
BRANCH IF NO 

SAVE ERROR CONDITIONS 

sERROR: ERROR BITS IN BECR2 SET WHEN SHOULD=0 
TYPE PC OF ERROR MSG 

; BRANCH TO NEXT TEST 


SET UP INTVEC TO FIND BR LEVEL UBE MADE 
sRESTORE STACK 
sRAISE PRIORITY LEVEL BY 1 
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710 TEST UBE CAN INTERRUPT ON ALL LEVELS & THE NO INT. SSYN BIT DOESN'T SET 


INC $REGO s INDICATE NEW LEVEL OF PRIORITY 
MOV SREG1,a#PSw :SET PSW PRIORITY 
INC @BECR1 :HAVE UBE INTERRUPT AGAIN 
NOP ;1F UBE INT. HERE, INCREMENT PRIORITY 
JSR PC,RCATCH TRESTORE TRAP CATCHER 
ERROR 019 SERROR: UBE FALSELY INTERRUPTED AT HIGHER LEVEL 
JSR PC, TERRPC :TYPE PC OF ERROR MSG 
BR TST11 ::BRANCH TO NEXT TEST 
WINT: CMP (SP)+,(SP)+ :RESTORE STACK AFTER INTERRUPT 
JSR PC, RVEC ;RESTORE VECTOR AREA 
ERROR 020 ZERROR: UBE INTERRUPTED TO WRONG VECTOR 
JSR PC, TERRPC STYPE PC OF ERROR MSG 
TOBLO7: JSR P [RETURN VECTOR AREA WHEN FINISH BR TEST 
TO8L06: BIT 74000, SBECR2 [WAS NO INT. SSYN ERROR BIT SET? 
BEQ TST11 :;BRANCH TO NEXT TEST IF NO 
ERROR 023 SERROR: NO INT. SSYN BIT FALSELY SET 
JSR PC, TERRPC :TYPE PC OF ERROR MSG 
J SRR AA AAA AE AAA ER AREA AREA RAARAA ARERR KEKEReRKHEEE 
; STEST 11 TEST THE NO,NO SACK ERROR BIT DOESN'T SET 


: eTHE INHIBIT SACK BIT IS SET AND THE UBE IS TOLD TO 
:*DO A FUN. 3.THE NO,NO SACK ERROR BIT IS THEN 
:*CHECKED TO NOT HAVE SET. 


PRA RARE AAA AAA AAA AEA AAE AAA AERA AAARERARERAAAARAAAKRA RHEE 


TST11: SCOPE 


MOV #STACK,SP RESTORE STACK 

MOV #340,a#PSW ;LOCK OUT INTERRUPTS 

JSR PC, CLRREG :CLEAR ALL UBE REGS. 

MOV #10,aBECR2 ENABLE INH SACK IN BECR2 
MOV #6003, aBECR1 300 FUN 3 VIA BR4 


SEQ 0034 


J 3 
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1262 006010 005037 177776 CLR a#PSW ;ALLOW INTERRUPTS 
1263 006014 000240 NOP ;ALLOW UBE TO GET BUSS. CPU SHOULD TIME OUT 





kK 3 
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006016 005000 CLR RO : INIT COUNTER 
005200 : INC RO : INC COUNTER 
105700 ba % s:DELAY AT LEAST 41 USEC 
100375 BPL BRANCH IF NO 
032777 000200 174472 BIT #200, aBECR2 :WAS NO, NO SACK BIT SET? 
001403 BEQ BRANCH IF NO 
104026 ERROR” “S22 ERROR: NO, NO SACK BIT FALSELY SET 
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006040 004767 010364 JSR PC, TERRPC TYPE PC OF ERROR MSG 
006044 004767 010120 RTR: JSR PC,CLRREG CLEAR ALL UBE REG 


FRA RARER AEE AEE EAA REET EERE EATER A EAA AERA REA KEEAEE 


s*TEST 12 TEST DATI,DATIP,DATO,DATOB AND FUNCTION 1 WORK PROPERLY 


-* 
Z*ALL DATA TRANSFERS ARE DONE VIA BR TRANSFERS. 
S*EACH OPERATION (DATI, DATO, DATIP, DATOB) DOES ONE 
;* TRANSFER AND THE DATA IS THEN CHECKED. 
:*EACH TIME AN OPERATION IS STARTED THE READY 
:*BIT IS TESTED BY THE SUBROUTINE 'RDYS* TO SEE IF IT SETS. 
FF RAR ARERR EAE AERA AEE ERE E EAA AERA AAAEARAEKEKEAEKEKEE 
000004 TST12: PE 
001100 ;RESTORE STACK 
177776 ;LOCK OUT INTERRUPTS 
021716 #052525. BUFF1 ;PUT TEST DATA IN BUFFER 
PC, CLRREG ;CLEAR ALL UBE RES 
174414 #177777 ,aBECC ;HAVE UBE DO 1 XFER 
174410 #BUFF1,aBEBA ;LOAD UBE WITH BUFFER ADDRESS 
#ERRILRS SINITIALIZE RS FOR ERROR ADDRESS 
174400 #2003 ,aBECR1 ;HAVE UBE DO DATI VIA BR=4 AND FUNCTION 1 
aePsu ;ALLOW DATA XFER 
PC. RDYS :G0 CHECK FOR RDY TO SET 
052525 174354 #052525, aBEBD 31S DATA OK? 
T10L01 :GO TEST DATO IF YES 
174346 173042 @BEBD, SREGO :SAVE (BEBD) 
021632 173036 BUFF1,$REG1 :SAVE MEM DATA 
030010 173032 #BUFF 1, $REG2 ;SAVE MEM ADDRESS 
052525 173026 MOV #52525, $REG3 ;SAVE CORRECT DATA 
ERROR D24 ERROR: DATI FAILED TO LOAD PROPER DATA 
010226 JSR PC, TERRPC :TYPE PC OF ERROR MSG 
JMP TSTA :G0 TO NEXT TEST 
T10L01: PC, CLRREG :CLEAR UBE REG 
CLR BUFFI :CLEAR TEST AREA 
174274 #177777 ,aBECC ;HAVE UBE DO 1 XFER 
174270 #BUFF1,@BEBA ;LOAD UBE WITH BUFFER ADDRESS 
174256 #052525 ,aBEBD ;LOAD UBE WITH DATA 
#ERR2,R5 : INITIALIZE R5 FOR ERROR ADDRESS 
174252 #3003, aBECR1 ;HAVE UBE DO DATO VIA BR=4 AND FUNCTION 1 
PC RDYS :GO CHECK FOR RDY TO SET 
052525 021524 #052525,,BUFFI ;WAS BUFFER LOADED PROPERLY? 
T10L02 :GO TEST DATIP IF YES 
174224 172720 @BEBD, $REGO ;SAVE (BEBD) 
172714 BUFF1,$REG1 ;SAVE MEM DATA 
172710 #BUFF1,SREG2 :SAVE MEM ADDRESS 
052525 172704 MOV #052525, $REG3 TSAVE CORRECT DATA 
R 025 TERROR: DATO FAILED TO LOAD PROPER DATA 
010104 JSR PC, TERRPC ;TYPE PC OF ERROR MSG 
000554 TST13 :;BRANCH TO NEXT TEST 


004767 007636 T10L02: PC, CLRREG sCLEAR UBE REG 
021450 MOV #052525, BUFF1 :PUT TEST DATA IN BUFFER 
174152 #177777 aBECC [HAVE UBE DO 1 XFER 
174146 #BUFF1,aBEBA [LOAD UBE WITH BUFFER ADDRESS 
#ERR3,RS SINITIALIZE R5 FOR ERROR ADDRESS 
012777 002403 174136 #2403. aBECR1 SHAVE UBE DO DATIP VIA BR=4 AND FUNCTION 1 


ek ek ek ek ek ek ek as os os os 
WANNA AWA AAAI 
PROPOR Ny @8 et ot ot a a 
WN —o O@nOufwnr—-o 








UNIBUS EXERCISOR MODULE DIAGNOSTIC 
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004767 000176 

125252 


125252 
174100 
021364 
030010 
125252 


007760 


174116 
021400 


172574 
172570 
172564 
172560 


004767 
000502 


012767 000377 021330 


174024 


174010 
177777 ~=021262 
001453 
017767 173762 
021246 
030010 
177777 


007642 
000433 


172456 
172452 
172446 
172442 


005004 


000200 173724 


000020 


007602 


007572 


007562 


004767 007552 


MACY11 30A(1052) 
T12 


4 
27-APR-78 


3 
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TEST DATI,DATIP,DATO,DATOB AND FUNCTION 1 WORK PROPERLY 


8 
T10L06: 
4 


PC,RDYS 
#125252, aBEBD 
T10L06 
#125252, BUFF1 
T10L03 
@BEBD , SREGO 


BUFF1,$REG1 
#BUFF1,SREG2 


V #125252, $REG3 
R 026 


JSR ead 3" 


TI0OLO3: 
| 


; SUBROUTINE 


$113 
#377 ,BUFF1 
#ERR4G RS 
#177400, aBEBD 
#BUFF1+1,aBEBA 


#177777 ,aBECC 
#3403,aBECR1 


PC,RDYS 
#177777 ,BUFFI 
TST13 
@BEBD , SREGO 


BUFF1,$REG1 
#BUFF1,$REG2 


V #177777, SREG3 


MO 
ERROR 027 
JSR PC, TERRPC 


RDYS: 
TIOLOS: : 


T10L04: 
ERR1: 


ERR2: 


ERR3: 


ERR4: 


TSTA: 


J 
S$ PC 


TST13 


:GO CHECK FOR RDY SET 

HAS UBE SHIFTED DATA? 
BRANCH IF NO 

HAS MEM LOC BEEN SHIFTED? 
:GO TEST DATOB IF YES 
SAVE (BEBD) 

SAVE MEM DATA 

SAVE MEM ADDRESS 

SAVE CORRECT DATA 

ERROR: DATIP FAILED TO LOAD PROPER DATA 
: TYPE PC OF ERROR MSG 

7 ;BRANCH TO NEXT TEST 


INITIALIZE BUFFER 

INITIALIZE R5 FOR ERROR ADDRESS 

;LOAD HIGH BYTE OF UBE WITH 1'S 

;LOAD HIGH BYTE BUFF ADDR. INTO UBE 

HAVE UBE DO 1 XFER 

HAVE UBE DO DATOB VIA BR=4 AND FUNCTION 1 
:GO CHECK FOR RDY SET 

TEST IF DATOB DONE CORRECTLY 

; BRANCH IF YES TO NEXT TEST 


:SAVE (BEBD) 

SAVE NEW DATA 

;SAVE MEM ADDRESS 

SAVE CORRECT DATA 

ERROR: DATOB FAILED TO LOAD DATA PROPERLY 
TYPE PC OF ERROR MSG 

;:BRANCH TO NEXT TEST 


TO TEST IF ROY BIT SET 


R4 
#200,aBECR1 
T10L04 

R4 

#20,R4 
T10L05 


(SP)+ 
(R5) 


T 
ERROR 028 
JSR PC, TERRPC 


TST13 


ERROR D29 
JSR PC, TERRPC 


TST13 


ERROR 030 
JSR PC, TERRPC 


TST13 


ERROR 031 
JSR PC, TERRPC 


INITIALIZE R4 
71S ROY SET? 
BRANCH IF YES 
UPDATE COUNT 
; COUNT=16? 
:1F NO, GO TEST RDY AGAIN 
RETURN STACK PTER 
3GO INDICATE ERROR 

RETURN AND CHECK DATA 
ERROR: DATI FAILED TO SET RDY 
TYPE PC OF ERROR MSG 
:;G0 TO NEXT TEST 
ERROR: DATO FAILED TO SET RDY 
:TYPE PC OF ERROR MSG 
:3G0 TO NEXT TEST 
ERROR: DATIP FAILED TO SET RDY 
: TYPE PC OF ERROR MSG 
::G0 TO NEXT TEST 
ERROR: DATOB FAILED TO SET RDY 
TYPE PC OF ERROR MSG 


SEQ 0038 
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CZKUBB.P11 27-APR-78 15:02 713 TEST INHIBIT DATA SHIFT ON DATIP SEQ 0039 


PUR RAR eee RAE AAA AAA AE TERA R AA TE TTA TA TATRA ATA AA AeA TERE eee 
s*TEST 13 TEST INHIBIT DATA SHIFT ON DATIP 
PRARRRA ARATE AAA A AAA TAKA A TAA A ATA T TAHA TEA A TAHT eee eee eee eee 
000004 TST13: E 
001100 #STACK,SP RESTORE STACK 
PC, CLRREG CLEAR UBE REG 
aaPSw ;ALLOW INTERRUPTS 
#052525 BUFF ;PUT TEST DATA IN BUFFER 
#177777 ,aBECC HAVE UBE DO 1 XFER 
#BUFF1,@BEBA ;LOAD UBE WITH BUFFER ADDRESS 
173600 #22403 ,aBECR1 ;HAVE UBE DO DATIP WITH INH DATA SHIFT 
007314 PC,CRDY ;CHECK FOR RDY BIT 
TST R4 :DID RDY SET? 
BEQ T11L01 ;BRANCH IF YES 
ERROR 030 ERROR: DATIP FAILED TO SET RDY 
007466 SR PC, yt TYPE PC OF ERROR MSG 
B :;BRANCH TO NEXT TEST 
052525 173544 T11L01: : #052535, a8e0D 71S (BEBD) Ok? 
052525 021026 eee it BUF F1 ; OK? 
STi4 :;BRANCH IF YES TO NEXT TEST 


BE 
173526 172222 T11L02: apeed. S SREGO 7SAVE (BEBD) 
021012 172216 MOV BUFF1,$REG1 :SAVE MEM DATA 
030010 172212 #BUFF1,SREG2 SAVE MEM ADDRESS 
052525 1/2206 MOV #052525, $REG3 SAVE CORRECT DATA 
ERROR 032 ERROR: INH. DATA SHIFT ON DATIP FAILED 
007016 004767 007406 JSR PC, TERRPC TYPE PC OF ERROR MSG 


SRR AE AEA AEE AEE AEAREKKEREKEEEE 
S#TEST 14 TEST DATOB ON DATIP 
FRAT EAA EERE AERA ETE AAT AEE AAA AAR AAA AREA AARERERERAEREEEEE 
007022 000004 T8114: SCOPE 
001100 OV #STACK,SP ;RESTORE STACK 
PC, CLRREG :CLEAR UBE REG 
aePsw :ALLOW INTERRUPTS 
020742 #177525 ,BUFF1 :LOAD TEST DATA IN BUFFER 
#BUFF1,@BEBA ;LOAD UBE WITH LOW BYTE ADDRESS 
#177777 ,aBECC ;HAVE UBE DO 1 XFER 
173434 #42405. <@BECRI ;HAVE UBE DO DATOB ON DATIP 
:CHECK FOR RDY SET 
177253 173414 niP7es3, @BEBD :CHECK (BEBD) OK 
T12L01 :BRANCH IF NO 
177653 020676 #177653, BUFF1 ;CHECK BUFFER OK 
Be TSTi5 ;;BRANCH IF YES TO NEXT TEST 
173376 172072 112L01: @BEBD , $REGO :SAVE (BEBD) 
KOV BUFF1,$REG1 ;SAVE MEM DATA 
#BUFF1,$REG2 :SAVE MEM ADDRESS 
177653 172056 #177653, $REG? :SAVE CORRECT DATA 
ERROR 033 SERROR: DATOB ON DATIP FAILED 
004767 007256 JSR PC, TERRPC :TYPE PC OF ERROR MSG 


PP Att eeeeeeeeeeeeeererereerereteeereteeereketeneteneteneeereeeene 


:eTEST 15 TEST NO SSYN ERROR BIT WORKS & FUN A,B BITS RESET SY ERROR INTERRUPT 
-¢ 
;*A DATI NPR IS DONE TO A MEM LOC (760000) THAT RETURNS 








007152 


007446 


UNIBUS EXERCISOR MODULE 
CZKUBB.P11 


000004 


004767 


DIAGNOSTIC 
27-APR-78 15:02 


000400 


007154 
100000 


007134 
177776 


173220 


007110 
173204 
000400 


007064 
002000 


007044 


004000 


006762 
006550 


8 
177776 
173332 
173314 
173312 
173276 
173274 


173264 


173242 


171704 
173174 


173152 


aa 30A (1052) 


3*NO SSYN. 
;*ARE CHECKED TO SET. 


8 
27-APR-78 
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TEST NO SSYN ERROR BIT WORKS & FUN A,B BITS RESET BY ERROR INTERRUPT 


THE NO SSYN ERROR BIT AND BIT 15 OF BECRI 
THE ERROR INTERRUPT IS THEN TESTED. 


;*AFTER THIS THE ERROR IS CLEARED BY THE CLEAR E 


; tADDRESS. 


RROR 
FINALLY THE FUN A,B BITS (BITS 10,11 OF BECR1) 


ARE EXAMINED TO SEE IF THEY RESET WHEN AN ERROR 
s* INTERRUPT OCCURS. 


‘WEA SRA AAA RSRRASASAARAASASARAARRASL ALE SSA SALES ESS ESSE SESS ESR R ESA SS 


TST158: 


T23L02: 


T23L03: 


T23L01: 


T23L05: 


T23L06: 


T23L07: 


T23L04: 


#340 ,a#PSw 
PC, CLRREG 
#123L01,@INTVEC 
#160000, a@BEBA 
#3,aBECR2 
#177777 ,aBECC 
#2041 ,@BECR1 
PC,CRDY 
#400 ,aBECR2 

BNE T23L02 

ERROR 059 

ERROR 060 

JSR PC, TERRPC 

BIT #100000, aBECR1 

BNE T23L03 

ERROR 059 

ERROR 061 


JSR PC, TERRPC 
CLR a#PSwW 


NOP 

MOV @BECR2,$REGO 

ERROR D59 

ERROR D8 

JSR “ff M mass, 

CLR @ 

BIT 7400, @BECR2 

BEQ T23L05 

ERROR 059 

ERROR D062 

JSR PC, TERRPC 

BIT #2000, aBECR1 

BEQ T23L06 

ERROR 059 

ERROR D014 

JSR PC, TERRPC 
#160000, aBEBA 
#3, aBECR2 
#177772, aBECC 
#T23L07 ,@INTVEC 
#4041, aBECR1 


PC,CROY 

#4000, aBECR1 
EQ T23L04 
ERROR 059 
ERROR 069 


JSR PC, TERRPC 
JSR PC,RCATCK 


sRESTORE STACK 

;LOCK OUT INTERRUPTS 
;CLEAR UBE REG 

;SET UP FOR INTERRUPTS 
;LOAD UBE WITH TEST ADDRESS WHICH RETURNS NO SSYN 
;LOAD UBE WITH TEST ADDRESS WHICH RETURNS NO SSYN 
;HAVE UBE DO 1 CYCLE 

;HAVE DATI NPR DONE 

sWAIT TILL RDY SET 

sWAS NSSYN ERROR BIT SET? 

;BRANCH IF YES 

sERROR: TEST OF NSSYN ERROR BIT FAILED 
:T0 SET BIT 8 OF BECR2 

3; TYPE PC OF ERROR MSG 

;WAS ERROR BIT SET? 

;BRANCH IF YES 

sERROR: TEST OF NSSYN ERROR BIT FAILED 
3:70 SET BIT 15 OF BECRI 

3; TYPE PC OF ERROR MSG 

;ALLOW UBE TO INTERRUPT 

;UBE SHOULD INTERRUPT HERE 

sSAVE BECR2 

sERROR: TEST OF NSSYN ERROR BIT FAILED 
;TO INTERRUPT CPU 

s TYPE PC OF ERROR MSG 

;CLEAR ERROR BITS 

sWAS NSSYN ERROR BIT CLEARED? 

;BRANCH IF YES TO TEST FUN A, B BITS 
sERROR: TEST OF NSSYN ERROR BIT FAILED 
;TO CLEAR BIT 8 OF BECR2 

; TYPE PC OF ERROR MSG 

sWAS FUN A BIT RESET? 

sBRANCH IF YES 

sERROR: TEST OF NSSYN ERROR BIT FAILED 
7TO CLEAR BIT 10 OF BECRI 

; TYPE PC OF ERROR MSG 

;LOAD UBE WITH TEST ADDRESS WHICH RETURNS NO SSYN 
;LOAD UBE WITH TEST ADDRESS WHICH RETURNS NO SSYN 
700 2 CYCLES 

;SET UP FOR INT 

;HAVE UBE DO FUN2 DATI VIA NPR 
sWAIT TILL RDY SETS 

sWAS FUN B BIT RESET 


RESTORE TRAP 

ERROR: TEST OF NSSYN ERROR BIT FAILED 
;TO CLEAR BIT 11 OF BECRI 

:TYPE PC OF ERROR MSG 


RESTORE TRAP 


SEQ 0040 
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CLR @BERE 


UNIBUS EXERCISOR MODULE DIAGNOSTIC 


CZKUBB.P11 27-APR-78 15:02 SEQ 0041 


raat 007452 005077 173052 


;CLEAR ALL ERROR CONDITIONS 


SRR AAEEEEA EERE A EEE AA EER E EEE E EEE E EEE ERKE EEK 


:#TEST 16 TEST ADDRESS REG COUNTS BY 2 AND 1 
£#RO CONTAINS THE TEST DATA 


eco SA TTI S ITT ete tet iti terete titi ti rir iti titi titi t iti titi tt itt 

007456 000004 T8116: 

001100 . 

006500 PC,CLRREG 

006600 PC,DINT 

177776 aePsw 

000002 MOV #2,R0 

177777 =—°173006 =T14L02: #177777 ,aBECC 

002003 173004 MOV #2003,aBECR1 

006520 

172772 


RESTORE STACK 

;CLEAR UBE REGS 

DISREGARD UBE INTERRUPTS 
sALLOW INTERRUPTS 

s INITIALIZE TEST COUNTER 

HAVE UBE DO 1 XFER 

HAVE UBE DO DATI 

; CHECK RDY SET 

:1S ADDRESS CORRECT? 

BRANCH TO ERROR IF NO 

UPDATE RO 

UPDATE RO 

HAVE ALL ADRESSES BEEN TESTED? 
:LOOK AT NEXT ADDRESS IF NO 
;LOAD MAX ADDRESS IN LOWER 16 BITS UBE 
LOAD A16,A17 OF UBE WITH 1 


000002 


T14L02 
177776 =172750 #177776, aBEBA 
172746 #3, aBECR2 


007604 001042 


007606 012777 


007734 004767 


000003 


030011 
177777 
003403 
006410 
030012 


172652 
030012 


006542 


172626 
171314 


006520 
172610 
177774 
171266 


006474 
006262 


172732 


172722 


#177777, aBECC 
@BECR1 
PC,CRDY 
#3,aBECR2 
T14L03 


;NOW TEST ADDRESS COUNTS BY 1 


172706 
172676 
172674 


172660 


171342 
171336 


171316 =T14L01: 


T14L03: 


T14L04: 


MOV #BUFF1+1,aBEBA 

MOV #177777, aBECC 
#3403 ,aBECR1 
PC,CRDY 
#BUFF1+2,aBEBA 

T14L04 

@BEBA , $REGO 

0 #BUFF1+2,$REG1 

ERROR 037 

JSR PC, TERRPC 

BR T14L04 

MOV @BEBA,$REGO 

MOV RO,SREG1 

ERROR 035 

JSR PC, TERRPC 

BR T14L04 

MOV @BECR2,RO 

BIC #177774,R0 

MOV RO,$REGO 

ERROR D036 

JSR PC, TERRPC 

JSR PC, RCATCH 


HAVE UBE DO 1 XFER 
HAVE UBE DO DATI 
sCHECK RDY SET 

TEST A16,A17=0 
;BRANCH TO ERROR IF NO 


;PUT ODD ADD OF > Aa IN UBE 


HAVE UBE DO 1 XFE 
HAVE UBE DO DATOB 
:CHECK RDY 


[DID ADDRESS UPDATE BY 1? 
:;BRANCHIF YES TO RESTORE TRAPS 


SAVE BAD ADDRESS 
SAVE GOOD ADDRESS 


ERROR: BEBA DID NOT COUNT BY 1 


TYPE PC OF ERROR MSG 
::GO TO RESTORE TRAPS 
SAVE BAD ADDRESS 

SAVE CORRECT ADDRESS 


ERROR: BEBA DID NOT COUNT BY 2 


: TYPE PC OF ERROR MSG 
:;G0 TO RESTORE TRAPS 


:GET ADDRESS BITS FROM UBE 


;JUST LOOK AT A16,A17 
SAVE ADDRESS 


ERROR: BEBA BITS ont. A17 DID NOT COUNT = 


; TYPE PC OF ERROR M 


;RESTORE TRAPS ANDY eo TO NEXT TEST 


0 
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007742 
007746 
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007756 
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012737 
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001100 
006216 
006316 
177776 


010012 
017776 
004000 


037776 


004000 
000006 


000000 


172434 


172432 
177777 
172422 
006136 
172404 


172414 
000003 
177777 
172362 
006076 
172344 


172342 
000002 


006232 
006020 


000004 


000004 


000000 
172454 
172452 


172422 


172400 
172376 
172362 


ol 30A (1052) 
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TEST BUS ADDRESS BITS WILL CHANGE 


FERRARA AERA AERA AEA EEE REE A EERE AREAS 


TEST BUS ADDRESS BITS WILL CHANGE 


STH UBE BUS ADDRESS BITS ARE CHECKED TO 


*SEE IF THEY CAN CHANGE FROM 0,1. 


SEVERAL DATIS 


ARE DONE FROM LOCATION 0, THE HIGHEST LOC IN THE FIRST 
;*8K AND FROM THE UBE SIMULTANEOUS GO ADDRESS. 


STRATA AEE TEAR AAA EKKKERKE EKER EE 


TST17: 


3SIZE MEMORY FROM 4K TO 8K 
MOV #T13L01,a#4 
T13L02: 


T13L01: 
T13L03: 
4 


T13L04: 


T13L05: 


SCOPE 

MOV #STACK,SP 
JSR PC,CLRREG 
JSR PC,DINT 
CLR a#PSwW 


MOV #17776,RO0 
ADD #4000,R0 
TST (RO) 
CMP #37776,R0 
BNE T13L02 
BR T13L03 

B #4000,R0 


#6,a8#4 
(RO) ,R1 
RO, (RO) 
#0 


PC,CRDY 
@BEBD 
T13L04 


RO, @BEBA 
#177777 ,aBECC 
aBECR1 


SUB 

ERROR 034 
JSR PC, TERRPC 

IER PC.RCATCH 

MOV R1,(RO) 


,a#0 
#177777 ,aBECC 
#2003, aBECR1 


RESTORE STACK 
;CLEAR UBE REG 
:DISREGARD INTERRUPTS 
;ALLOW DATA TRANSFERS 


;SET UP TIME OUT TRAP 
SET RO=LAST ADDRESS IN 1ST 4K OF MEM 


;UPDATE RO TO NEXT 1K OF MEM 
Ai IF 1K PRESENT. TIMES OUT IF NOT. 


T 8K? 
‘OOK AT NEXT 1K IF NOT 


;GET ADDRESS OF LAST 1K OF MEM PRESENT 


RESTORE TRAP 

SAVE CONTENTS OF LAST LOC IN FIRST 8k 
;PUT ADDRESS OF LOC IN MEM LOC 

;PuT 0 IN LOC 0 

HAVE UBE DO 1 XFER 

;HAVE UBE DO DATI FROM MEM LOC 0 
:CHECK FOR RDY SET 

;SEE IF UBE READ 0 FROM LOC 0 

;BRANCH TO ERROR IF DATA NOT = 0 

HAVE UBE ADDRESS HIGHEST MEMORY IN 4K-8K LOCATIONS 
HAVE UBE DO 1 XFE 


SEQ 0042 


R 
;HAVE UBE DO DATI FROM HIGHEST MEMORY IN 4K-8K LOCATIONS 


:CHECK FOR RDY SET 
:DID UBE READ FROM PROPER LOCATION? 
BRANCH IF DATA NOT = RO 


;HAVE UBE ADDRESS ITS GO ADDRESS 

sHAVE UBE ADDRESS ITS GO ADDRESS 

HAVE UBE DO 1 XFER 

;HAVE UBE DO DATI FROM GO ADDRESS 

;CHECK FOR RDY SET 

:D1D UBE READ PROPER LOCATION? 

;BRANCH IF YES 

GET ADDRESS+2 TRIED TO READ FROM 

7CALC. ADDRESS TRIED TO READ FROM 
ERROR: UBE DID DATI FROM WRONG LOCATION 
TYPE PC OF ERROR MSG 

RESTORE TRAPS 

RESTORE CONTENTS OF LAST LOC OF FIRST 8k 


FRR AAA A AREA A AAA A AREA A EATER ERERS 


SSTEST 20 


TEST CYCLE COUNT COUNTS BY 1 AND INCREMENTS WITH EACH INTERRUPT 
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-* 
;*THE BECC REG IS CYCLED FROM 0 TO 177777 BY INTERRUPTING THE 
:*CPU. AFTER EACH INTERRUPT, THE REG IS COMPARED WITH RO WHICH 
> *CONTAINS THE PROPER DATA. 
STREETER EAA E AREER AAA AEAAARARAREAEAKAEREKE EEE 
010204 000004 TST20: SCOPE 
001100 OV #STACK,SP RESTORE STACK 
000340 177776 #340 ,a#PSwW ;LOCK OUT INTERRUPTS 
005744 PC,CLRREG :CLEAR UBE REG 
RO s INITIALIZE TEST COUNTER 
010250 172276 MOV #T15L01,a@INTVEC ;SET UP INT VECTOR AREA 
000003 172262 115.03: #3, aBECR1 HAVE UBE INT.VIA BR=4 
177776 aePSw ;ALLOW INTERRUPTS 
N ;UBE WILL INTERRUPT HERE 
T15L01: (SP)+,(SP)+ RESTORE STACK AFTER INTERRUPT 
INC RO ;UPDATE TEST COUNTER 
31S RO=0? 
:RESTORE TRAPS IF YES 
172234 :D1D CYCLE COUNT UPDATE PROPERLY? 
INCREMENT BECC IF YES 
172226 170720 @BECC,SREGO SAVE BAD DATA 
170716 MOV RO, $REG1 SAVE GOOD DATA 
ERROR 038 ERROR: INTERRUPT FAILED TO UPDATE BECC TO CORRECT VALUE 
006122 JSR PC, TERRPC : TYPE PC OF ERROR MSG 
000340 177776 MOV #340, aePSu :LOCK OUT INTERRUPTS 
006003 172202 MOV #6003,aBECR1 HAVE UBE CYCLE SO IT SETS RDY 
177776 CLR a#PSW ;ALLOW UBE TO CYCLE 


010326 004767 005670 T15LO2: JSR PC,RCATCH sRESTORE TRAPS 


STARR RAE AAA AAA AEA EAE REAR EAA AAA AARA AE EARARAAAARRARERARAAREKEREEEE 


s*TEST 21 TEST INHIBIT INCREMENT OF BECC AND BEBA 


** 
:*A DATI IS DONE VIA BR ARBITRATION AND THE BECC AND BEBA REGS 
;*ARE CHECKED TO NOT INCREMENT. 
FEAR AREER AEE TAREE EAE AAA ERE AAA EATER 
010332 000004 TST21: SCOPE 
001100 #STACK,SP ;RESTORE STACK 
000340 177776 #340, a#PSW :LOCK OUT INTERRUPTS 
005616 PC, CLRREG :CLEAR UBE REG 
030010 172142 #BUFF1,aBEBA :LOAD UBE WITH TEST ADDRESS 
177777 172132 #177777 ,aBECC :LOAD TEST DATA INTO BECC 
000001 017414 #1,BUFFI :SETUP BUFFER DATA 
000004 172124 #4, aBECR2 ;HAVE UBE INH. INC. OF BECC AND BEBA 
002003 172114 #2003, aBECR1 ;HAVE UBE DO DATI FROM BUFFER AREA 
177776 CLR a#PSw ;ALLOW DATA XFER 
172076 T16L01: @BEBD :WAS DATA XFERED? 
BEQ T16L01 ;WAIT TILL DATA IN BEBD 
177777 172070 #177777, aBECC :CHECK BECC WAS NOT UPDATED 
T16L02 :BRANCH IF WAS TO ERROR 
030010 172062 #BUFF1,aBEBA :CHECK BEBA WAS NOT UPDATED 
BEQ T16L03 :BRANCH IF WAS NOT UPDATED 
ERROR 039 ;ERROR: BEBA INCREMENTED WHEN IT WAS INHIBITED 
005760 JSR PC, TERRPC :TYPE PC OF ERROR MSG 
BR T16L03 
T16L02: ERROR D40 ;ERROR: BECC INCREMENTED WHEN IT WAS INHIBITED 
010454 004767 005750 JSR PC, TERRPC :TYPE PC OF ERROR MSG 
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1664 


010460 
010466 


010472 
010474 


010722 


OR MODULE DIAGNOSTIC 
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042777 
004767 


000004 


104067 


000004 
005552 


001100 
000340 
005456 
030010 
030030 
000377 
030010 
177774 
010612 


003121 
177776 


001000 


005620 
030010 


030020 
030030 
000100 
020000 
20000 


005522 


030010 


172040 


177776 


171654 
171646 


171634 
171630 
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MACY11 30A(1052) 27-APR-78 15:03 PAGE 33 
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T16L03: BIC #4,aBECR2 ;ALLOW BEBA AND BECC TO COUNT 
JSR PC,CRDY WAIT TILL UBE IS DONE 


STREETER EERE EAREREREAEE 


TEST 22 TEST INT ENB AND CCOVF WORK AND THAT UBE WILL DO SEVERAL XFERS 


a 
:*THE UBE IS SETUP TO DO 4 DATO XFERS VIA BR ARBITRATION AND 
:*INTERRUPT WHEN DONE. THE INTERRUPT IS CHECKED FOR 
;*AND THEN A BUFFER AREA IS TESTED TO SEE IF EXACTLY 
:*FOUR TRANSFERS WERE DONE. 
STRUT EAA AERA AAA EA AERA ETE RERERERKEKAKAERAEKKKKEKEE 
TST22: SCOPE 
#STACK,SP ;RESTORE STACK 
#340, a#PSw ;LOCK OUT INTERRUPTS 
PC, CLRREG :CLEAR UBE REG 
#BUFF1,RO [GET BUFFER ADDRESS 
(RO)+ :CLEAR BUFFER AREA 
RO, #BUFF1+20 :AT END OF BUFFER? 
T17L01 [BRANCH IF NO 
#377, aBEBD :SET UP XFER TEST DATA 
#BUFF1,@BEBA [LOAD UBE WITH BUFF ADDRESS 
#177774, aBECC :SET UBE TO DO 4 XFERS 
#117L02, aINTVEC :SET UP INT VECTOR 
#3121, aBECR1 :HAVE UBE DO DATO VIA BR=7 AND INTERRUPT ON DONE 
asPsw TALLOW XFERS 
RO SINITIALIZE COUNT 
T1703: RO [UPDATE COUNT TO WAIT FOR INTERRUPT 
#1000,R0 [WAITED LONG ENOUGH? 
T17L03 :BRANCH IF NO 
ERROR 041 ;ERROR: UBE FAILED TO INT. ON DONE 
PC, TERRFC :TYPE PC OF ERROR MSG 
T17L09 73GO0 RESTORE TRAPS 
T17L02: #BUFF1,RO :GET START OF BUFFER 
T17L05: (RO)+ :TEST FIRST 4 LOC WRITTEN 
T17L04 :BRANCH IF NOT WRITTEN TO ERROR 
#BUFF1+10,RO :LOOKED AT ALL WRITTEN LOCS. 
17L05 :BRANCH IF NO 
T17L06: (RO) + :TEST LAST 4 LOC WERE NOT WRITTEN 
T17L10 :BRANCH TO ERROR IF WERE 
#BUFF1+20,R0 [AT END OF BUFFER? 
T17L06 :NO, LOOK AT NEXT LOCATION 
#100, aBECR1 :YES, TEST INT. ON DONE BIT=0 
T17L07 :BRANCH TO ERROR IF NOT=0 
#20000, aBECR2 :TEST CCOVF=% 
T17L08 :BRANCH TO ERROR IF=0 
#6003, aBECR1 :SET GO BIT TO SEE IF CCOVF IS RESET 
#20000, aBECR2 :TEST CCOVF=0 
T17L09 1360 RESTORE TRAPS IF YES 
ERROR D42 TERROR: CCOVF NOT CLEARED BY GO 
JSR PC, TERRPC :TYPE PC OF ERROR MSG 
BR T17L09 :3G0 RESTORE TRAPS 
T17L04: TST =(RO) :CALC. LAST ADD. WRITTEN 
T17L10: TST -(RO) ZCALC. LAST ADD. WRITTEN 
CMP #BUFF1,RO SWERE ANY ADD. WRITTEN? 
BLE T17L11 :BRANCH IF YES 
ERROR 055 SERROR: UBE DID NOT DO DATO TO PROPER # OF LOC (4) 


TI7L901: 


SEQ 0044 
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T22 SEQ 0045 


bs ieee 5 MODULE DIAGNOSTIC 
P11 27-APR-78 15:02 TEST INT ENB AND CCOVF WORK AND THAT UBE WILL DO SEVERAL XFERS 
010724 004767 005500 JSR PC, TERRPC 
BR T17L09 
030010 170254 T17L11: MOV #BUFF1,$REGO 
170252 MOV RO,SREG1 
ERROR 043 
005456 JSR PC, TERRPC 
BR T17L09 


; TYPE PC OF ERROR MSG 

3;GO0 RESTORE TRAPS 

SAVE FIRST LOCATION WRITTEN 

sSAVE LAST LOCATION WRITTEN 

sERROR: UBE DID NOT DO DATO TO PROPER # OF LOCATIONS (4) 
TYPE PC OF ERROR MSG 

::GO RESTORE TRAPS 


T17L07: ERROR 044 ERROR: INT. ON + BIT NOT CLEARED 
005446 JSR PC, TERRPC SG 
BR T17L09 
T17L08: ERROR 045 
005436 JSR PC, TERRPC 
T17L09: JSR PC,RCATCH 


: TYPE PC OF ERROR M 
::G0 RESTORE TRAPS 
ERROR: CCOVF NOT SET 
TYPE PC OF ERROR MSG 
RESTORE TRAPS 


PERRET EAE EAA A AERA AAA AEEAAAAKEAAAKRAEKAREEREAKKEE 


:#TEST 23 TEST DATA XFERS FROM BECC 


: STHE UBE IS SET UP TO DO 4 DATO XFERS VIA BR ARBITRATION FROM 
:*THE BECC REG TO A BUFFER AREA. THE AREA IS THEN CHECKED. 


PETTITT TETITETITITTT TTT T LETTE TTT TTT TTT TTT TTT TTT 


010772 004767 005224 


010776 000004 TST23: as 


001100 
005160 
177776 
030010 


030030 


T18L01: 


#STACK,SP 
PC, CLRREG 
aePSsw 
#BUFF1,RO 
(RO)+ 


RESTORE STACK 
:CLEAR UBE REG 
;ALLOW INTERRUPTS 
:GET BUFFER ADDRESS 
;CLEAR BUFFER AREA 
AT END OF BUFFER? 


RO, #BUFF1+20 
T18L01 

#BUFF1,@BEBA 
#177774 ,aBECC 


BRANCH IF NO 
LOAD STARTING ADDRESS INTO UBE 
:SETUP UBE TO DO 4 XFERS 
013003 171452 #13003 .a@BECR1 HAVE UBE DO 4 XFERS FROM BECC 
000200 171444 118L02: #200 ,aBECR1 ;LOOK FOR RDY SET 

T18L02 BRANCH TILL SET 
030010 #BUFF1,RO :GET BUFFER ADDRESS 
177774 #177774,R1 INITIALIZE R1=TO FIRST DATA WORD 

T18L04: (RO)+,R1 71S DATA OK? 

T18L03 :NO, GO TO ERROR 

R1 UPDATE FOR NEXT DATA 
030020 RO, #BUFF1+10 ;LOOKED AT ALL DATA? 

T18L04 :NO, LOOK AT NEXT WORD 

000412 TST24 ::G0 TO NEXT TEST 


005740 T18L03: ~(RO) :CALC. ADDRESS OF FAILURES 
170076 RO, $REGO SAVE ADDRESS 
170074 (RO), SREG1 SAVE BAD DATA 
170072 OV R1,$REG2 SAVE GOOD DATA 
ERROR 046 ERROR: DATO FROM BECC NOT DONE PROPERLY 
004767 005274 JSR PC, TERRPC ; TYPE PC OF ERROR MSG 


PRR AAA ERATE AAA AEA AEE AAT AR AREA AA EAA EAR 


:*TEST 24 TEST UBE CAN DO 2 XFERS PER BUS REQUEST 


-* 

s*THE UBE IS SET UP TO DO 2 DATO XFERS PER REQUEST VIA 
;*BR ARBITRATION. THE CYCLE COUNT IS SET TO DO A TOTAL OF 
:*FOUR XFERS. THE UBE IS TOLD TO GO. THE FIRST TIME 

:*THE CPU GETS THE BUS, AFTER THIS, THE PSW PRIORITY IS 


030010 171464 
177774 =171454 
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;*SET FOR 7 HOLDING OFF FURTHER UBE ACTION. A BUFFER 
:*AREA IS THEN CHECKED THAT THE UBE DID EXACTLY 2 XFERS 
:*PER REQUEST. 
FFARR RAE AERA REE EERE EERE EEE REA E EEE AEAAAREAREKAEKAAARKKAKEEE KEE 
000004 T$124: FE 
001100 STACK, SP ;RESTORE STACK 
000340 #340, aePSu ;LOCK ON INTERRUPTS 
005014 PC, CLRREG :CLEAR UBE REGS 
030010 #BUFF1,RO GET BUFFER ADDRESS 
T19L01: (RO) + :CLEAR BUFFER AREA 
030030 RO, #BUFF1+20 AT END OF BUFFER? 
T19L01 :CONTINUE TO CLEAR IF NO 
030010 #BUFF1,@BEBA ;LOAD BUFFER ADDRESS INTO UBE 
#177774 ,aBECC SET UBE TO DO 4 XFERS 
#377, aBEBD LOAD TEST DATA INTO UBE 
#5003 ,aBECR1 ;HAVE UBE DO 2 DATO/REQUEST VIA BR=4 
177776 arPsu ALLOW UBE TO DO XFERS 
;UBE SHOULD DO 2 XFERS HERE 
000340 #340, asPSW :SET PRIORITY=7 TO STOP LAST 2 XFERS 
030010 #BUFF1,RO :GET BUFF ADDRESS 
T19L03: (RO)+ WAS BUFF WRITTEN? 
T19L09 BRANCH TO ERROR IF NO 
030014 RO, #BUFF1+4 [LOOKED AT FIRST 2 LOCATIONS? 
T19L03 BRANCH IF NO 
T19L04: (RO) + ;TEST BUFF LOC NOT WRITTEN 
T19L02 ;BRANCH TO ERROR IF WRITTEN 
030020 RO, #BUFF1+10 [LOOKED AT FOURTH LOC? 
T1904 BRANCH IF NO 
E T19L05 7:60 TO END OF TEST 
T19L09: -(RO) :CALC LAST ADDRESS WRITTEN 
T19L02: -(RO) :CALC LAST ADDRESS WRITTEN 
030010 CMP #BUFF1,RO WERE ANY ADDRESS WRITTEN? 
BLOS T19L07 ;BRANCH IF YES 
ERROR 048 ERROR: UBE DID NOT DO 2 XFERS/REQUEST 
005122 JSR PC, TERRPC TYPE PC OF ERROR MSG 
BR T19L05 ::G0 TO END OF TEST 
030010 167676 119L07: MOV #BUFF1,$REGO SAVE FIRST ADDRESS WRITTEN 
167674 MOV RO, $REG1 ;SAVE LAST ADDRESS WRITTEN 
ERROR 047 ERROR: UBE DID NOT DO 2 XFERS FOR EACH REQUEST 
005100 JSR PC, TERRPC TYPE PC OF ERROR MSG 
177776 TI9LOS: CLR a#Psw ALLOW LAST 2 XFERS 
NOP ALLOW UBE TO GET BUS 
004767 004702 JSR PC,CRDY WAIT TILL UBE FINISHES XFERS 


FURR AAA TARE AA AERA AAA AAA ERE AA AAAAAARAEAAARAAARAKERERERE TEE 


:#TEST 25 TEST UBE CAN DO 2 DATIP XFERS PER REQUEST 


‘ STHE UBE IS SET UP TO DO 2 DATIP XFERS PER REQUEST VIA 

:*BR ARBITRATION. THE CYCLE COUNT IS SET TO DO A TOTAL OF 

:*FOUR XFERS. THE UBE IS TOLD TO GO. THE FIRST TIME 

:*THE CPU GETS THE BUS, AFTER THIS, THE PSW PRIORITY IS 

*SET FOR 7 HOLDING OFF FURTHER UBE ACTION. A BUFFER 

;*AREA IS THEN CHECKED THAT THE UBE DID EXACTLY 2 XFERS 

;*PER REQUEST. 

PORTE TIT ISIS I III iii iii it iit iii ii iiiiiritiititiiititi tii it. 


0 
1831 011342 000004 TST25: SCOPE 


N=—ONNAAOQUME Ww 
SONEFAOAMVOLONGAS 
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011344 012706 001100 #STACK,SP RESTORE STACK 
#340 ,a#PSu ;LOCK OUT INTERRUPTS 
PC,CLRREG ;CLEAR UBE REG 
#BUFF1,RO :GET BUFFER ADDRESS 
T20L01: #125252, (RO)+ ;LOAD TEST DATA 
030020 RO, #BUFF1+10 ;LOADED FIRST 4 LOCS? 
T20L01 BRANCH IF NO 
030010 #BUFF1,@BEBA ;LOAD BUFFER ADDRESS INTO UBE 
177774 #177774, aBECC ;SET UBE TO DO 4 CYCLES 
004403 #4403, aBECR1 HAVE UBE DO 2 DATIP/REQUEST VIA BR=4 
177776 aePSw ;ALLOW UBE TO DO CYCLES 
;UBE SHOULD DO XFERS HERE 
000340 #340 ,a#PSw SET PRIORITY = 7 TO STOP LAST 2 CYCLES 
030010 #BUFF1,RO :GET BUFF ADDRESS 
052525 T20L03: #052525, (RO)+ : TEST BUFF LOCS WRITTEN 
T20L02 ;BRANCH TO ERROR IF NOT DONE PROPERLY 
030014 #BUFF1+4,R0 ;LOOKED AT 2 WRITTEN LOCS? 
T20L03 BRANCH IF NO 
125252 T20L04: #125252, (RO)+ TEST BUFF LOCS NOT WRITTEN 
T20L08 ;BRANCH TC ERROR IF WRITTEN 
030020 RO, #BUFF1+10 ;LOOKED AT FOURTH LOC? 
20L0 BRANCH IF NO 
::GO0 TO END OF TEST 
T20L02: ) CALC LAST ADDRESS WRITTEN 
T20L08: CALC LAST ADDRESS WRITTEN 
030010 CMP P WERE ANY LOC WRITTEN? 
BLOS T20L06 BRANCH IF YES 
ERROR D049 ERROR: DID NOT DO a on 
004714 JSR PC, TERRPC TYPE PC OF ERROR M 
BR T20L05 ::G0 TO END OF TEST. 
030010 167470 T20L06: MOV #BUFF1,$REGO SAVE FIRST ADDRESS WRITTEN 
167466 MOV RO,SREG1 SAVE LAST ADDRESS WRITTEN 
ERROR 050 ERROR: UBE DID NOT DO 2 DATIP/REQUEST 
004672 JSR PC, TERRPC TYPE PC OF ERROR MSG 
177776 T20L05: CLR a#PSw gALLOW LAST 2 CYCLES 
NOP ;ALLOW UBE TO GET BUS 
011544 004767 004474 JSR PC,CROY sWAIT FOR UBE TO FINISH XFERS 


SRA AEE AEA AERA TARE AAA EERE RARER AAA AREAAAAAKAREREAAREEKEEE 


:*TEST 26 TEST DATA XFERS VIA NPR AND INT ON DONE WORK 


-* 
:*THIS IS THE FIRST TEST WHERE THE NPR IS EXERCISED. ONE 
:*DATO NPR IS DONE TO A BUFFER AREA. THE READY BIT IS 
;*THEN CHECKED FOR SETTING. NEXT, THE SAME OPERATION IS 
:*REPEATED ONLY THE INTERRUPT ON DONE BIT IS SET. 
;*THE PROGRAM TESTS FOR THE INTERRUPT AND THEN EXAMINES 
;*THE BUFFER AREA TO SEE THAT ONLY ONE XFER WAS DONE. 
PEAS AAARARARRASASARALARA REAR ESASA REALE SELES SE RSE SERS E SEER EES SY 
000004 T$126: E 
001100 #STACK, SP ;RESTORE STACK 
177776 #340,aePSw :LOCK OUT INTERRUPTS 
PC, CLRREG :CLEAR UBE REG 
BUF F1 :CLEAR BUFFER LOC 
170714 #177777, aBEBD :LOAD UBE DATA REG WITH TEST DATA 
170712 #BUFF1,@BEBA ;LOAD UBE ADDRESS REG WITH BUFF ADD. 
012777 177777 170702 #177777, aBECC :SET UBE TO DO 1 CYCLE 


Soooooc[ec$5[“ 
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1888 


011616 


011776 


912002 


012032 


012036 


012076 


27-APR-78 
012777 


004767 


000004 


104401 


012777 
012777 


005077 


DIAGNOSTIC 


15:02 
003041 
004412 


016146 
016140 


004330 
004506 
016062 


004470 


004460 
006003 
177776 
004256 


004432 
004220 


000001 


010000 
025257 
177777 
000043 
177776 
000001 


004332 
170422 


170700 


170650 
170632 
170622 
170620 


170546 


167222 


167142 


170454 
170452 


170436 


J 4 
mac tt 30A(1052) 27-APR-78 15:03 


PAGE 37 
TEST DATA XFERS VIA NPR AND INT ON DONE WORK 


MOV #3041, aBECR1 ;HAVE UBE DO DATO VIA NPR 
NOP ;ALLOW UBE TO SET BUS 
JSR PC,CRDY [CHECK RDY SET 
TST R4 :D1D RDY SET? 
BNE T21L01 :BRANCH TO ERROR IF RDY DID NOT SET 
TST BUFFI [WAS DATO DONE? 
BEQ T21L02 :BRANCH TO ERROR IF NPR NOT DONE 
CLR BUFF 1 :CLEAR BUFF LOC 
CLR BUFFI+2 :CLEAR BUFF LOC +2 
MOV #T21L03,a@INTVEC :SET UP FOR INTERRUPT 
MOV #BUFF1,aBEBA :LOAD TEST ADDRESS 
MOV #177777, aBECC [SET UBE TO DO 1 CYCLE 
MOV #3143,aBECR1 ;HAVE UBE DO DATO NPR AND INT WHEN DONE VIA BR=4 
CLR a#Psw [ALLOW UBE TO INTERRUPT 
JSR PC,CROY [WAIT FOR INT. OR RDY TO SET 
ERROR D053 TERROR: UBE DID NOT INT WHEN NPR DONE 
JSR PC, TERRPC :TYPE PC OF ERROR MSS 
BR T21L04 [RESTORE TRAPS 
T21L03: TST BUFF1+2 [DID NPR WRITE MORE THAN 1 LOC? 
BEQ T21L.04 7:60 TO END OF TEST 
ERROR 054 ;ERROR: UBE WROTE 2 LOC WHEN 1 NPR AND INT DONE 
JSR PC, TERRPC :TYPE PC OF ERROR MSG 
BR T21L04 :RESTORE TRAPS 
T21L01: ERROR D052 SERROR: NPR DID NOT SET RDY 
JSR PC, TERRPC :TYPE PC OF ERROR MSG 
MOV #6003, aBECR1 ;HAVE UBE SET ITS RDY 
CLR a#PSw ; 
JSR PC,CRDY :WAIT TILL SET 
BR T21L04 :RESTORE TRAPS 
T21L02: ERROR 051 TERROR: NPR DATO NOT DONE 
JSR PC, TERRPC :TYPE PC OF ERROR MSG 
T21L04: JSR PC,RCATCH ;RESTORE TRAPS 
3 PRR RAAAAE RAAT RAAT AAA EAE ATER AAA RARAAARAKAAKARARERAREKREE 
; TEST 27 TEST UBE WILL NOT INTERRUPT DURING AN NPR AND GO BIT SETS 


IF THIS TEST FAILS AND THE UBE DOES INTERRUPT AFTER 
z* TRYING TO DO AN NPR, THE CPU WILL GO DOWN 


MTITTITITIIICITTTTIITITITITITTTT TTT TTT ELLE LLL 


TST27: SCOPE 


MOV #1, STIMES 3:00 1 ITERATION 

MOV #STACK,SP RESTORE STACK 

JSR PC,CLRREG ;CLEAR UBE REG 

BIT #SW12,aSWR ; INHIBIT TYPEOUTS? 

BNE 1$ BRANCH IF YES 

TYPE ,MSG3 TESTING UBE WILL NOT INTERRUPT 

DURING NPR. IF DOES, CPU WILL GO DOWN 

1$: MOV #177777,aBECC :SET UBE TO DO 1 CYCLE 

MOV #0043,aBECR1 :HAVE UBE DO DATI NPR AND INT. (FUN.=0) 

CLR a#PSW 

NOP ;UBE SHOULD NOT GET BUSS HERE 

BIT #1,a@BECR1 1S GO BIT SET? 

BNE T22L01 :BRANCH IF YES” 

ERROR D9 TERROR: GO BIT FAILED TO LOAD ‘1° 

JSR PC, TERRPC : TYPE PC OF ERROR MSG 


T22L01: CLR @BECRI RESET GO BIT, NPR AND INTERRUPT 


SEQ 0048 
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012116 


012366 


032777 
001002 
104401 


000004 


004767 
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010000 
025405 


001100 


001000 


004210 
177776 


170272 


004162 


004020 


040000 
140000 


000003 
170200 


001000 


004042 
003630 


167062 


177776 
170356 


170330 
170320 


166756 


170240 
170224 
170220 
170212 


170206 
170172 
170162 
170152 
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8 
TEST UBE WILL NOT INTERRUPT DURING AN NPR AND GO BIT SETS 


BIT #SW12,aSWR 
BNE TST30 
TYPE nse 


; INHIBIT TYPEOUTS? 
;;BRANCH IF YES 
sEXITING TEST 


FRR RRA REE ERE AEE AAA A EAE AERA AAAEAERAREARAAEKKAKER REAR 


s*TEST 30 


TEST WRONG A LINE ERROR BIT DOES NOT SET 


:* 
;*A DATI NPR IS DONE FROM THE UBE GO ADDRESS 

;*THE ERROR BIT IS TESTED NOT TO HAVE SET AND NOT TO HAVE INTERRUPTED. 
s*THE ADDRESS BITS 14,15,16,17 ARE NEXT TESTED SEPARATELY 

;*AND THE ERROR BIT IS CHECKED NOT TO HAVE SET 


POVTTITITITITITITITTITITITITITETITLIT TT TITT TTT TTL iiii iit 


18130: 


T24L02: 


T24L01: 


T24L06: 


T24L05: 


T24L04: 


T24L03: 


SCOPE 
MOV #STACK,SP 
MOV #340,a#PSW 


MOV #2041, aBECR1 

JSR PC,CRDY 

BIT #1000, aBECR2 
T24L02 

ERROR 056 

ERROR D57 

JSR PC, TERRPC 

CLR a#PSw 

NOP 

BR T24L06 

MOV @BECR2,$REGO 

ERROR D056 

ERROR 063 

JSR PC,TERRPC 
T24L03 


MOV #1,aBECR2 
MOV #177777,aBECC 
ADD #40000,@BEBA 
BIT #140000, aBEBA 
BNE T24L04 

BIT #3,a@BECR2 

BEQ T24L03 

INC @BECR2 

BIC #4,aBECR2 

MOV #2061 ganecan 


BIT 71000, ape cre 
BEQ T24L05 
ERROR 056 
ERROR 057 


JSR PC, TERRPC 
JSR PC,RCATCH 


sRESTORE STACK 

;LOCK OUT INTERRUPTS 

;CLEAR UBE REGS 

HAVE UBE ADDRESS ITS GO ADDRESS 
HAVE UBE ADDRESS ITS GO ADDRESS 
:SET UP TO DO 1 CYCLE 

:SET UP FOR INT. 

HAVE DATI NPR DONE FROM GO ADDRESS 
:CHECK FOR RDY SET 

WAS ADDRESS ERROR SET? 

BRANCH IF NO 

ERROR: TEST OF WRONG A LINES ERROR BIT FAILED 
;BECR2 BIT 9 FALSELY SET 

: TYPE PC OF ERROR MSG 

ALLOW ANY INTERRUPTS 

;UBE SHOULD NOT INTERRUPT HERE 

:GO TEST INDIVIDUAL ADDRESS BITS 
;SAVE BECR2 

ERROR: TEST OF WRONG A LINES ERROR BIT FAILED 
FALSELY INTERRUPTED CPU 

; TYPE PC OF ERROR MSG 

3GO RESTORE TRAP 

DISREGARD INTERRUPTS 

CLEAR ADDRESS 0-15 

TEST ADDRESS 16 

:00 1 CYCLE 


TEST NEXT ADDRESS 

HAVE ADDRESS BITS 14,15 BEEN EXERCISED? 
TEST NEXT ADDRESS IF NO 

HAVE ADDRESS BITS 16,17 BEEN EXERCISED? 
:GO RESTORE TRAPS IF YES 

z INC ADDRESS BITS 16,17 

:CLEAR BIT 2 OF BECR2 IF SET 

:D0 DATI NPR TO ADDRESS 

sWAIT TILL RDY SET 

sWAS WRONG ADDRESS LINES ERROR BIT SET? 
TEST NEXT ADDRESS IF NO 

ERROR: TEST OF WRONG ° LINES ERROR BIT FAILED 


;BECR2 BIT 9 FALSELY SET 
TYPE PC OF ERROR MSG 
RESTORE TRAP CATCHER 


SEQ 0049 
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TEST WRONG GRANT AND NO GRANT OR NOT ONE GRANT ERROR BITS DO NOT SET 


EASA A AAAS ASASASRASARASA ALAA ASAA SALAS ESLER LAER CRESS SESE SSS 

TEST 31 TEST WRONG GRANT AND NO GRANT OR NOT ONE GRANT ERROR BITS DO NOT SET 
-* 

;*THE UBE IS SET UP TO DO ONE DATI XFER/REQUEST. ALL 

:*THE POSSIBLE COMBINATIONS OF BR AND NPR LEVELS ARE THEN 
:*EXERCISED. AFTER EACH, THE ERROR BITS AND INTERRUPTS ARE 
:*CHECKED FOR. FINALLY, A DATI NPR IS DONE FROM A BUFFER 
;*AREA WITH THE INTERRUPT ON DONE BIT SET. UPON INTERRUPT, 
S*ERROR BITS ARE CHECKED. 


PIVPOTTSITTTITETITITITTITITTTITTITTTTITITTTIT TTT TTT iit ri iii 


SEQ 0056 


THE 


012372 


012646 


000004 


017767 


001100 


000076 
000040 
002000 


170006 
167774 
003670 


012560 
002143 


000040 
002000 


167716 


00361¢ 


167674 


003566 


167652 


170112 
170112 
177776 
170064 
170060 
170054 
170036 
170030 


170020 


166472 
166462 


167762 
167746 


167740 
167730 


166404 


166362 


166340 


18131: 


| 
T25L05: 


T25L01: 


T25L02: 


T25L06: 


T25L07: 


T25L03: 


PE 

#STACK,SP 

PC,CLRREG 

#2000, aBECR1 

#T25L01 ,@INTVEC 
#340, 

#177777 ,aBECC 

#BUFF1,@BEBA 

#3,aBECR1 
aePsw 

PC,CROY 

#76, aBECR1 

T25L02 

#40 ,aBECR2 

T25L03 

#2000 ,aBECR2 

BNE T25L04 

BR T25L05 


LO8 
MOV #T25L06 ,@INTVEC 
ay ORES. ,@BECRI 


WAI 

BIT #40,aBECR2 

BNE T25L07 

BIT #2000,aBECR2 

BEQ T25L08 

ERROR 064 

MOV @BECR1,$REGO 

ERROR 065 

ERROR 066 

JSR PC, TERRPC 

BR T25L08 

ERROR D064 

MOV @BECR1,$REGO 

ERROR 067 

ERROR 066 

JSR PC, TERRPC 
T25L08 

ERROR D064 

MOV @BECR1,$REGO 


aePSw 


sRESTORE STACK 

;CLEAR UBE REG 

:SET UP UBE TO DO 1 DATI XFER/REQ. 
SET UP FOR INTERRUPTS 


s;LOCK OUT INTERRUPTS 


SET UBE TO DO 1 CYCLE 
;SET UBE TO ADDRESS BUFFER AREA 
HAVE UBE DO NEXT LEVEL OF REQUEST 


ALLOW DATA XFERS VIA BR AND NPR LEVELS 
WAIT TILL RDY SET 

HAVE ALL REQUEST LEVELS BEEN EXERCISED 
:BRANCH IF YES 


YE 
[WAS WRONG GRANT ERROR BIT SET? 
;BRANCH TO ERROR IF SET 
WAS NO GRANT OR NOT ONE GRANT ERROR BIT SET? 
:;BRANCH TO ERROR IF YES 
:GO TEST NEXT LEVEL 
ERROR: TEST OF WRONG GRANT OR NOT ONE GRANT FAILED 
SAVE ERROR BITS 
FALSELY INTERRUPTED CPU 
SAVE BECR1 
WITH BECRI= 
: TYPE PC OF ERROR MSG 
:GO RESTORE TRAPS 
7SET UP NEW INT. AREA 
HAVE UBE DO 1 DATI NPR AND INT ON DONE 
:WAIT TO BE INTERRUPTED 
WAS WRONG GRANT ERROR BIT SET? 
BRANCH TO ERROR IF WAS 
WAS NO GRANT OR NOT ONE GRANT BIT SET? 
:GO RESTORE TRAPS IF WAS NOT 
ERROR: TEST OF WRONG GRANT OR NOT ONE GRANT FAILED 
:SAVE BECRI 
:NO GRANT OR NOT ONE GRANT ERROR BIT FALSELY SET 
sWITH INT ON DONE = 1 
TYPE PC OF ERROR MSG 
:GO RESTORE TRAPS 
ERROR: TEST OF WRONG GRANT OR NOT ONE GRANT FAILED 
:SAVE BECRI 
WRONG GRANT ERROR BIT FALSELY SET 
WITH INT ON DONE = 1 
TYPE PC OF ERROR MSG 
:GO RESTORE TRAPS 
ERROR: TEST OF WRONG GRANT OR NOT ONE GRANT FAILED 
:SAVE BECRI 
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731 TEST WRONG GRANT AND NO GRANT OR NOT ONE GRANT ERROR BITS DO NOT SET 


ERROR 067 WRONG GRANT ERROR BIT FALSELY SET 

JSR PC, TERRPC TYPE PC OF ERROR MSG 

BR T25L08 :GO RESTORE TRAPS 

ERROR 064 ERROR: TEST OF WRONG GRANT OR NOT ONE GRANT FAILED 
MOV @BECR1,$REGO ;SAVE BECR1 


UNIBUS EXERCISOR MODULE DIAGNOSTIC 
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012654 104103 
003546 


SEQ 0051 


T25L04: 
167632 166320 
003526 
003314 


ERROR 065 ;NO GRANT OR NOT ONE GRANT ERROR BIT FALSELY SET 
JSR PC, TERRPC MSG 
T25L08: JSR PC,RCATCH 


TYPE PC OF ERROR 
RESTORE TRAP CATCHER 


FFARR ERE REAR EERE RETREAT EAE ERERERERARERRARE EERE 


s*TEST 32 TEST TIME DELAY AND BUSS LATENCY ERROR BITS 


yt 
:*THE BUS LATENCY ERROR BIT IS SET BY DOING A RELEASE 
;*BUS IMMEDIATE FUNCTION AND SETTING THE TIME DELAY BIT. THE 
:*ERROR BIT AND BIT 15 OF BECR1 ARE CHECKED TO SET. THE 
s*ERROR INTERRUPT 3 THEN CHECKED FOR AND THE ERROR CONDITION 
z*I1S TESTED TO CLEAR 


PTTSTTTTITITITITITTTITITITITILITILITT TTT LiTT TTL iiiii ities 


012702 004767 


012706 


013112 


000004 


012777 


001100 


006003 


000400 
000100 


003426 
100000 


003406 
177776 


003370 


167462 
00010¢ 


003342 


002041 


177776 


167572 
167570 
167554 


167536 


167514 


167452 


167414 
167410 
167404 


18132: 


T26L02: 


T26L03: 


T26L04: 


T26L01: 


T26L05: 


SCOPE 
#STACK,SP 
#340,a#PSW 
PC,CLRREG 
#40000, aBECR2 


#T26L01 ,@INTVEC 


#6003, aBECR1 
RO 
RO 
#400,R0 
T26L02 
#100, aBECR2 
T26L03 
ERROR 070 
ERROR 071 
JSR PC, TERRPC 
BIT #100000, aBECR1 
BNE T26L04 
ERROR 070 
ERROR 061 
JSR PC, TERRPC 
CLR a#PSw 
NOP 
ERROR 070 
ERROR 058 
JSR PC, TERRPC 
BR T26L 05 
CLR @ 
BIT 100. aBECR2 
BEQ 126105 
ERROR 070 
ERROR 072 
JSR PC, TERRPC 
JSR PC. CLRREG 
JSR PC 
MOV WPeTTT, a@BECC 
MOV #BUFF1,aBEBA 
MOV #2041, aBECR1 


RESTORE STACK 

:LOCK OUT INTERRUPTS 
:CLEAR UBE REG 

SET TIME DELAY BIT 
SET UP FOR INTERRUPTS 
:D0 RELEASE BUS IMMED. 
INITIALIZE RO 


sDELAY TO WAIT FOR 
:BUSS LATENCY ERROR BIT 
:T0O SET 


:WAS BUSS LATENCY ERROR BIT SET? 
BRANCH IF YES 

ERROR: TEST OF +. DALAY AND BUSS LATENCY FAILED 
:TO SET BIT 6 OF BECR2 

: TYPE PC OF ERROR mG 


:WAS ERROR BIT SET? 

BRANCH IF YES 

ERROR: TEST OF TIME DELAY AND BUSS LATENCY FAILED 
;TO SET BIT 15 OF BECRI 

TYPE PC OF ERROR MSG 

ALLOW ERROR INTERRUPTS 

;UBE SHOULD INTERRUPT 

ERROR: TEST OF TIME DELAY AND BUSS LATENCY FAILED 
;TO INTERRUPT CPU 

TYPE PC OF ERROR MSG 

:GO TO END OF TEST 

CLEAR ERROR CONDITION 

WAS ERROR CLEARED? 


BRANCH IF YES 

ERROR: TEST OF ig Bl DELAY AND BUSS LATENCY FAILED 
:TO CLEAR BIT 6 OF BECR2 

: TYPE PC OF ERROR nsG. 

CLEAR ALL UBE REG 

DISREGARD ERROR INTERRUPTS 

HAVE UBE DO DATI 

SO BUSS LATENCY REG 


;HOLD FLOP CLEARED 





UNIBUS EXERCISOR MODULE DIAGNOSTIC 
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013120 004767 003120 
* 013124 005077 167400 
013130 004767 003066 


013134 000004 
001100 
003022 
003122 
177776 
177776 
040000 
000003 
003040 


003212 
013216 003000 


013222 000004 
000001 
000020 


000340 


000020 


003110 


013366 


013344 005201 


167334 
167334 
167324 


166002 
165732 


177776 


000024 
000026 
167220 


000024 


N 
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TEST TIME DELAY AND BUSS LATENCY ERROR BITS SEQ 0052 


JSR PC,CRDY 
CLR @BERE 
JSR PC,RCATCH 


WAIT FOR RDY SET 
;CLEAR LATENCY ERROR IF SET 
RESTORE TRAPS 


MeARBRBAASAAAAAARAAARAAARALALESAAALASASASALE LASSE ARES SERRE ERE RA RRR SS 


s*TEST 33 TEST MULTIPLE INTERRUPTS SET RDY BIT 


te 


TST33: SCOPE 

MOV #STACK,SP 

JSR PC,CLRREG 

JSR PC,DINT 

R a#PSw 

#177776, aBECC 
#40000 ,aBECR2 
#3,aBECR1 
PC,CRDY 


R4 
EQ T31L01 
ERROR 084 
JSR PC, TERRPC 
T31L01: JSR PC,RCATCH 


FRR REAR ER EEA EAE EERE EAE AEE EE 


INITIALIZE STACK 
;CLEAR ALL UBE REG 
DISREGARD INTERRUPTS 
ALLOW INTERRUPTS 
HAVE UBE DO 2 CYCLES 
:D0 TIME DLY 

HAVE UBE INT. VIA BR4 
; CHECK FOR RDY SET 
sWAS RDY SET? 

BRANCH IF YES 

sERROR: TEST OF MULTIPLE INTERRUPTS FAILED TO SET RDY 
; TYPE PC OF ERROR MSG 
RESTORE TRAP CATCHER 


FERRARA AEA A AREER AEA AAAAAEARERAAKREKEEKEEEE 


:#TEST 34 TEST POWER DOWN SEQUENCE 


t eTHE POWER DOWN TEST IS ONLY DONE IF SW4=1. 

;*THE POWER DOWN IS TESTED FOR AND THEN THE POWER UP 
:*1$ TESTED. AN INTERNAL REG RO COUNTS FOR A TIME >150 
:*MS TO SEE IF THE CPU GETS POWERED UP. THE PROGRAM 
;*THEN WAITS FOR A TIME >150MS TO SEE IF THE CPU 


:*GETS POWERED DOWN AGAIN. 


FRR AA AERA AAA AAA AAA RERA AERA ARATE 


18134: 
#1, STIMES 
#20,aSWR 
TST35 


#340 ,a#PSw 
#STACK,SP 
a#24,-(SP) 
a#26,-(SP) 
#T27L01,a#24 
#340,a#26 
#20,aBECR2 


N 
ERROR 073 
ERROR 074 
JSR PC, TERRPC 
R T27L02 
T27L01: (SP)+,(SP)+ 
Ls oi eres Bees 


C 
T27L04: i 


3:00 1 ITERATION 

;SEE IF POWER DOWN TO BE TESTED 
::G0 TO NEXT TEST IF SWR4 = 0 
;LOCK OUT INTERRUPTS 

:INITIALIZE STACK 

SAVE POWER FAIL VECTOR ON STACK 
SAVE POWER FAIL VECTOR ON STACK 
;SET UP FOR POWER FAIL 

;SET UP FOR POWER FAIL 

HAVE UBE DO POWER FAIL 

; SHOULD POWER FAIL HERE 

ERROR: TEST OF POWER DOWN BIT FAILED 
;TO POWER DOWN CPU 

TYPE PC OF ERROR MSG 

sRESTORE TRAPS 

;RESTORE STACK 

;SET UP FOR POWER UP SEQUENCE 
INITIALIZE COUNTER 

INITIALIZE COUNTER 

;COUNT FOR A TIME 

;GREATER THAN 150 MS 
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013346 022701 000004 CMP #4,R1 71S TIME > 150 MS? 
BNE T27L04 BRANCH IF NO 
ERROR 073 ERROR: TEST OF POWER DOWN BIT FAILED 
ERROR 075 ;TO POWER UP CPU 
003044 JSR PC, TERRPC TYPE PC OF ERROR MSG 
BR T27L02 RESTORE TRAPS 
013430 000024 T27L03: + eset ;SET UP TO POWER DOWN AGAIN 


T27L06: ;COUNT FOR A TIME 
GREATER THAN 150 MS 


R1 
000004 31S TIME > 150 MS? 
E BRANCH IF NO 
ERROR 073 ERROR: TEST OF POWER DOWN BIT FAILED 
ERROR 076 ;TO REPOWER DOWN CPU 
003002 JSR PC, TERRPC TYPE PC OF ERROR MSG 
BR T27L02 3GO CHECK POWER DOWN BIT 
T27L05: CMP (SP)+,(SP)+ RESTORE STACK 
013442 000024 MOV #T27L02,a#24 :SET UP TO POWER UP AGAIN 
WAIT sWAIT TO POWER UP AGAIN 
000020 167056 T27L02: BIT #20,aBECR2 sWAS POWER DOWN BIT SET? 
BNE T27L07 BRANCH IF YES 
ERROR 073 sERROR: TEST OF POWER DOWN BIT FAILED 
ERROR 077 ;TO SET BIT 4 OF BECR2 
002746 JSR PC, TERRPC TYPE PC OF ERROR MSG 
000026 T27L07: MOV (SP)+,a#26 :RESTORE POWER FAIL VECTOR 
000024 MOV (SP)+,a#24 
013472 005077 167030 CLR @BECR2 :CLEAR POWER DOWN BIT 


FERRARA AREER EAE EEE AEA ERE REAR RAEEKEARAEREE 


:#TEST 35 TEST DCLO CLEARS BECC, BEBA, BECR2 AND BITS 0-6, 7-15 OF BECRI 
‘eTHIS TEST IS ONLY DONE IF Sw4=1. 


SERA RAAAAAAA AEA AEA AAA EERE AAAARERAEKERARERREREEE 
013476 000004 18135: SCOPE 
000001 165526 #1, STIMES 3:00 1 ITERATION 
000020 165456 T #20,aSWR SEE IF POWER DOWN TO BE TESTED 
T28L10 BRANCH IF SW4=1 
000410 JMP TSTB = TO NEXT TEST 
166770 128.10: #177777 ,aBECC HAVE UBE DO 1 CYCLE 
166770 MOV #3,aBECR2 SET ADDRESS BITS 16, 17 
166756 #160000 ,aBEBA [LOAD UBE WITH ADDRESS THAT RETURNS NO SSYN 
PC,DINT :DISREGARD INTERRUPTS 
166746 #2041 ,aBECR1 HAVE UBE DO DATI SO CCOVF=1 AND NSSYN ERROR = 1 
177776 aaPSw sALLOW INTERRUPTS 
WAIT sWAIT TILL ERROR INTERRUPT 
000024 é STORE POWER VECTOR ON STACK 
STORE POWER VECTOR ON STACK 
166720 LOAD ADDRESS REG WITH ALL ‘"T"’ 
MOV #177777, aBECC LOAD CYCLE COUNT REG WITH ALL ‘"1" 
MOV #77776, aBECR1 LOAD BECR1 WITH ONES 
MOV #T28L01,a#24 SET UP FOR POWER DOWN 
040037 166674 MOV #40037, aBECR2 ;LOAD BECR2 WITH ONES AND DO POWER DOWN 
013632 000001 WAIT CPU SHOULD POWER DOWN 





EXERCISOR MODULE 


P11 
013634 


014126 
014132 


022626 


012637 


DIAGNOSTIC 
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013646 


000020 
166640 
165332 
166626 


166622 
166614 


166612 
166604 


166574 
000200 
000200 


165240 
002444 


000340 
040000 
006003 
000100 


177776 


014044 
000020 


014056 


166444 
166440 


166432 
166424 
165110 


002312 
002100 
000026 
000024 


000024 


166652 
165332 


165312 


165276 


165262 
165260 
166556 


165240 


177776 
164524 
100514 
166510 


000024 
166464 


000024 
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T28L01: 


T28L02: 


T28L03: MOV 


T28L06: 


T28L08: 


T28L09: 


T28L04: 


TSTB: 


27-APR-78 


5 
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43 
TEST DCLO CLEARS BECC, BEBA, BECR2 AND BITS 0-6, 7-15 OF BECRI 


CMP (SP)+,(SP)+ 
mal #T28L05,a#24 


Wi 
T28L05: 
Ld 


T 
#20,a@BECR2 
BECC, $REGO 
SREG2 
aBeECC 
T28L02 
BEBA, SREGO 
@BEBA 


T28L02 
BECR2, SREGO 
@BECR2 
T28L02 
BECR1,$REGO 
#200, $REG2 
#200, aBECR1 
T28L03 
V @$REGO,$REG1 
ERROR 078 
JSR PC, TERRPC 
281.04 
#340,a#PSW 
#40000 ,a@BECR2 
#6003, aBECR1 
#100 ,aBECR2 
T28L06 
aePsw 


#T28L08 ,a#24 
* enmeeen 


WAI 
CMP (SP)+,(SP)+ 
ot ehecaaadebnataaie 


WAI 

CLR @BECR2 

TST @BECR2 

BEQ T28L04 

MOV BECR2,$REGO 
MOV @BECR2,$REG1 
CLR SREG2 

ERROR 078 

JSR PC, TERRPC 
JSR PC,RCATCH 
MOV (SP)+,a#26 
MOV (SP)+,a#24 


RESTORE STACK 

;SETUP FOR POWER UP 

:CPU SHOULD POWER UP 

;CLEAR POWER DOWN BIT 

;SAVE BECC ADDRESS 

SAVE CORRECT DATA 

; (BECC)=0? 

BRANCH IF NO 

7 SAVE BEBA ADDRESS 

; (BEBA) =0? 

;BRANCH IF NO 

SAVE BECR2 ADDRESS 

WAS BECR2 CLEARED? 

BRANCH IF NO 

SAVE BECR1 ADDRESS 

SAVE CORRECT DATA (BECR1) 

sWAS BECR1 CLEARED? 

BRANCH IF YES 

SAVE BAD DATA 

sERROR: DCLO FAILED TO CLEAR REG 
TYPE PC OF ERROR MSG 

:GO RESTORE VECTORS 

;LOCK OUT INTERRUPTS 

SET TIME OLY BIT 

3D0 RELEASE BUSS IMMED. TO SET LATENCY ERROR BIT 
TEST LATENCY ERROR BIT 

WAIT TILL IT SETS 

ALLOW LATENCY ERROR INTERRUPT 
;ALLOW INTERRUPT TO BE IGNORED 
:SET UP FOR POWER DOWN 

:SET POWER DOWN BIT 

WAIT FOR POWER DOWN 

RESTORE STACK 

;SETUP FOR POWER UP 

:CPU SHOULD POWER UP 


:CLEAR POWER DOWN BIT 
:WAS BUSS LATENCY ERROR BIT CLEARED? 


:SAVE CORRECT DATA 


ERROR: DCLO dae oa | TO CLEAR REG 
TYPE PC OF ERROR MSG 
RESTORE TRAP CATCHER 


:RESTORE POWER VECTOR 
RESTORE POWER VECTOR 


SUTRA AAAA AAA AAA RAHA RAAT ARE RATA AEA AAR AAA KEAKEReA Kee ee 


:TEST 36 


TEST SIMULTANEOUS GO ADDRESS 


ATH UBE IS SETUP TO INTERRUPT ON LEVEL 7 AND 
:*THEN TOLD TO GO VIA THE SIMULTANEOUS GO. NO 


;*INTERRUPT INDICATES AN ERROR. 


PF RAAAAAARA RARER AERA AAAAA AAA AAA AATEAAAAAAKARARARAARAReRAAEEEEE 


SEQ 0054 
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000300 


002220 
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166336 


177776 
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TEST SIMULTANEOUS GO ADDRESS 


SCOPE 

MOV #STACK,SP 

MOV #340, aePSW 

JSR PC,CLRREG 

MOV #TO9L01,@INTVEC 
MOV #20,aBECR1 


a@BEGO 
MOV #300,a#PSW 
ERROR 021 


JSR PC, TERRPC 
JSR PC,RCATCH 


sRESTORE STACK 


;LOCK OUT INTERRUPTS 

CLEAR ALL UBE REGS. 

:SETUP TO RECEIVE INTERRUPT 
SETUP TO DO BR=7 


START SIMULTANEOUS GO 

ALLOW INTERRUPTS 

;UBE SHOULD INTERRUPT HERE 
sERROR: SIMULTANEOUS GO FAILED 
TYPE PC OF ERROR MSG 

;RESTORE TRAP CATCHER 


SEQ 0055 


5 
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FERRARA EATER ERA ARETE EEE AEA ATE AAAS 


:#TEST 37 DYNAMIC TEST OF UBE 


ATHIS TEST EXERCISES THE MOST HARDWARE IN THE 

;*UBE AT ONE TIME. THE EXERCISOR IS SET UP TO DO EIGHT 
:*DATOB ON DATIP XFERS VIA NPR AND INTERRUPT ON DONE. 
;tAFTER INTERRUPTING, A BUFFER AREA IS EXAMINED TO SEE IF 
3 *THE OPERATIONS WERE DONE PROPERLY. THE ABOVE IS THEN 


;*REPEATED 100 TIMES. 


2305 SLUR RARRREAEEATEAAEAATEA AREER EATER EERE ER AERA RTA EE 
2306 014214 000004 TST37: SCOPE 
2307 014216 012767 000001 165010 MOV #1, $TIMES ;;00 1 ITERATION 
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014224 004767 001740 PC, CLRREG ;CLEAR UBE REG 
R2 INITIALIZE COUNT 
177776 aePSu ;ALLOW INTERRUPTS 
T29L04: #BUFF1,RO :GET BUFFER ADDRESS 
T29L01: #52525, (RO) + ;LOAD BUFFER 
030032 RO, #BUFF1+22 sENTIRE BUFFER LOADED? 
T29L01 BRANCH IF NO 
014334 166250 #T29L02 ,aINTVEC ;SET UP FOR INTERRUPTS 
030010 166232 #BUFF1,@BEBA ;LOAD BUFF ADDRESS IN UBE 
177760 166222 #177760, aBECC ;SET UBE TO DO 16 CYCLES 
042561 166220 #42561, aBECR1 D0 DATOB ON DATIP, AND INT. VIA BR7 WHEN DONE 
RO INITIALIZE COUNTER 
013516 013514 T29L06: BUFF1+20,BUFF1+20 ;D0 BACKGROUND NOISE PATTERN 
RO WAIT FOR COUNTER RO 
RO :TO OVERFLOW. IF DOES 
BNE T29L06 ;UBE FAILED TO INTERRUPT 
ERROR 080 sERROR: DYNAMIC TEST OF UBE FAILED 
ERROR 058 :TO INTERRUPT CPU 
002076 JSR PC, TERRPC TYPE PC OF ERROR MSG 
BR T29L07 :GO RESTORE TRAPS CATCHER 
T29L02: (SP)+,(SP)+ sRESTORE STACK 
030010 #BUFF1,RO ;GET BUFFER ADDRESS 
125652 T29L05: #125652, (RO) sWAS DATA SHIFTED PROPERLY? 
T29L03 ;BRANCH TO ERROR IF NO 
(RO)+ :INC RO BY 2 
030030 #BUFF1+20,R0 zAT END OF BUFFER? 
T29L05 BRANCH IF NO 
2 UPDATE COUNT 
000100 WAS UBE EXERCISED 100 TIMES? 
BRANCH IF NO 


sRESTORE TRAPS 


164616 T29L03: SAVE ADDRESS 
164614 (RO), SREG1 SAVE BAD DATA 
125652 164610 #125652, $REG2 SAVE CORRECT DATA 
ERROR D080 ERROR: DYNAMIC TEST OF UBE FAILED 
ERROR 081 ;TO LOAD PROPER DATA 
002010 JSR PC, TERRPC : TYPE PC OF ERROR MSG 
014420 004767 001576 T29L07: JSR PC,RCATCH RESTORE TRAP CATCHER 


BULL 
RETURN ROUTINE TO TEST NEXT UBE BEFORE DO LAST TEST 
BIULL 

014424 000004 SCOPE ;SCOPE FOR PREVIOUS TEST 

014426 004767 001536 NUBE: JSR PC,CLRREG CLEAR UBE SO NO INT. 

014432 000167 166740 NUBE1: JMP ACALC :GO SEE IF MORE UBE 


014436 012767 01446C 164474 LAST: MOV #LAST1,$LPADR ;SETUP LOOP ADDRESS FOR LAST TEST 


014444 012767 014460 164470 MOV #LAST1,$LPERR ;SETUP LOOP ON ERROR ADDRESS FOR LAST TEST 
014452 105367 164456 DECB STSTNM ADJUST TEST NUMBER 


PP SAAAAAAAAAAEA ARATE AAA TATA AE AAA REAR AAA A ARAL ARRAS 


T*TEST 40 TEST PASSING OF GRANTS 
:* 
*THIS TEST IS ONLY RUN IF THERE ARE MORE THAN ONE 
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014456 
014460 
014464 
014466 
014474 
014476 
014502 
014510 


014514 


014720 


000004 


000167 


012706 


005037 


166070 
010000 


027304 
000001 
001332 


001100 


166022 


014756 
166006 
000340 
166012 


014772 
165776 
000340 
030010 


000340 
00002C 
000020 
165710 


000020 
165712 


000020 
165614 
177776 


164476 


164524 


166024 


000002 
166022 


000002 


166012 
000002 


166002 
000002 


177776 
165666 
165676 


165700 


165702 
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;*UBE.IT IS COMPOSED OF TWO PARTS.THE FIRST PART CHECKS THAT 

:*A HIGHER ELECTRICAL PRIORITY UBE WITH ALL BR LEVELS =1 

:*AND GO BIT =O WILL PASS A GRANT TO THE NEXT LOWER ONE. 

:*THEN THIS SAME UBE IS CHECKED TO ALSO PASS A GRANT WHEN ALL BR=0 
nas THE GO BIT IS ENABLED 


THE SECOND PART VERIFIES THAT A 


UBE WITH A HIGHER ELECTRICAL PRIORITY 


‘ sBUT DOING A LOWER BR THAN A UBE OF LOWER ELECTRICAL 
:sPRIORITY. WILL PASS THE GRANT TO THE UBE OF LOWER ELECTRICAL 
-* 


THE UBE WITH THE LOWEST ELECTRICAL PRIORITY 
ON THE BUS MUST BE SWAPPED WITH A HIGHER 

ONE AND THEN THE ENTIRE PROGRAM RERUN INORDER 
THAT ITS PASSING GRANT LOGIC IS TESTED. 


MARA RAAARARARASAARARALALARLA SARA ESESASASALS ESE SEES E ESE SSSR REE ES SY 


SCOPE 


:sNOTE 


TST 
BNE 
BIT 


BNE 1 


BE2BD 
T30L01 
— 


TYPE ,MSG11 


MOV 
JMP 


#1, STIMES 
SEOP 


:1S THERE MORE THAN ONE EXERCISOR? 

BRANCH IF YES 

; INHIBIT TYPEOUTS? 

;BRANCH IF YES 

;PASSING OF GRANTS NOT TESTED WITH 1 EXERCISOR 
;D0 1 ITERATION IF THIS TEST NOT DONE 

:GO TO END OF TEST 


DETERMINE ELECTRICAL PRIORITY OF EXERCISORS 


T30L01: 


MOV 
MOV 


M 
T30L21: 
C 


M 
T30L07: i 


#STACK,SP 
#T30L02, aBE 1VEC 
1VEC,RO 
#340,2(RO) 
#730L03, aBEzVvEC 
BE2VEC,RO 
#340,2(RO) 
BE3VEC 
T30L21 
#130L04 ,aBE 3VEC 
BE3VEC,RO 
#340,2(RO) 
BE4VEC 
T30L21 
#T30L05,aBE4VEC 
BE4VEC,RO 
#340,2(RO) 
#BUFF1,RO 
R1 
#340, a#PSw 
#20,aBE1CR1 
#20,aBE2CR1 


T30L0 
#20, aBE4CR1 
@BEGO 
aePSw 


INITIALIZE STACK 
;SET UP UBE1 INTERRUPT HANDLER 


;SET UP UBE2 INTERRUPT HANDLER 


;ARE THERE — 
;BRANCH IF 
SET UP UBES. INTERRUPT HANDLER 


;ARE THERE 4 UBE? 
BRANCH IF NO 
;SET UP UBE4 INTERRUPT HANDLER 


GET BUFFER ADDRESS 

s INITIALIZE COUNT OF INTERRUPTS 
SET PSw PRIORITY=7 

LOAD FIRST UBE TO DO INT. 
;LOAD SECOND UBE TO DO INT. 
sTEST IF 3 EXERCISORS 
BRANCH IF NO 

;LOAD THIRD UBE TO DO INT. 
TEST IF 4 EXERCISORS 
BRANCH IF NO 

;LOAD FOURTH UBE TO DO INT. 
;LET ALL EXERCISORS INTERRUPT 
sALLOW INTERRUPTS 


VIA BR? 
VIA BR7 


VIA BR? 


VIA BR? 


SEQ 0058 
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000001 

002536 

006002 


002554 
006002 


002572 
006002 


002610 
006002 
165612 
177776 


011067 012766 


016700 165570 


030010 
000036 


030010 
015200 
000002 
000006 
177776 


000340 
020000 


000014 
027156 


165604 


165606 


165610 


165612 


000006 


000014 
000006 


177776 
164044 
164056 
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T30L02: 


T30L03: 


T30L04: 


T30L05: 
T30L06: 


T30L22: 


;BUFFER 
;PART 1 


C 
T30L28: 


T30L30: 
T30L26: 


T30L29: 


WAIT 

MOV #BE1BD,(RO)+ 
MOV #6002, @BE1CR1 
BR T30L06 

MOV #BE2BD,(RO)+ 
MOV #6002, aBE2CR1 
BR T30L06 

MOV #BE3BD,(RO)+ 
MOV as » aBE3CRI 


#BE4BD, (RO)+ 
#6002 ,aBE4CR1 
(SP)+,(SP)+ 
R1 

R1,UCNT 
T30L22 

aePSw 


WAIT 
CMP -(RO),-(RO) 
MOV (RO) ,BUFF1+10 


CONTAINS VECTORS IN 


UCNT RO 
RO 


R1 

BUFF1(R1),R2 
#36 ,a6(R2) 
(R1)+ 
BUFF1(R1),R3 
#730L25,a14(R3) 
#2,a6(R3) 
a6(R3) 

aePSw 


MOV #340,a#PSW 
ERROR D82 

BIT #SW13,aSwR 
BNE 1$ 


MOV 14(R3),$REGO 
TYPE ,MSG7 


H 5 
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WAIT FOR 1ST INTERRUPT 

;LOAD BUFFER WITH POINTER TO ADDRESS OF UBE 
SETUP FIRST UBE TO DO A FUN 3 

:GO SEE IF ALL UBE INTERRUPTED 

;LOAD BUFFER WITH POINTER TO UBE ADDRESSES 
;SETUP SECOND UBE TO DO A FUN3 

:GO SEE IF ALL UBE INTERRUPED 

;LOAD BUFFER WITH POINTER TO UBE ADDRESS 
;SETUP THIRD UBE TO DO A FUN3 

:GO SEE IF ALL UBE INTERRUPTED 

;LOAD BUFFER WITH POINTER TO UBE ADDRESS 
;SETUP FOURTH UBE TO DO A FUN3S 

RESTORE STACK 

;COUNT INTERRUPTS 

HAVE ALL EXERCISORS INTERRUPTED? 

BRANCH IF YES 

;ALLOW NEXT UBE TO INTERRUPT 

WAIT FOR INTERRUPT 

;DECREMENT RO BY 4 

;PUT NEXT TO LOWEST PRIORITY POINTER IN BUFF1+10 


ORDER OF ELECTRICAL PRIORITY 


;GET COUNT OF UBE 

ADJUST COUNT 

;CLEAR INDEX REG 

:GET PTER TO ADDRESS OF HIGHER PRIORITY UBE 
;SET ALL BR =1 IN THIS UBE 


UPDATE INDEX 


:GET PTER TO _— OF NEXT LOWER PRIORITY UBE 


:SET UP FOR IN 
; SETUP LOWER PRIORITY UBE FOR BR4 
HAVE UBE INT. 


ALLOW INT. 

:SROULD INT. HERE 

LOCK OUT INT. 

ERROR: TEST OF PASSING GRANTS FAILED 
; INHIBIT ERROR TYPEOUTS? 

BRANCH IF YES 

SAVE INT. VECTOR 

;UBE WITH INT. VECTOR: 


SEQ 0059 


164046 MOV SREGO,-(SP) 


TYPOC 
000006 164040 MOV @6(R3),$REG1 
026135 TYPE ,DH65 
164030 ies SREG1,-(SP) 


T 
027251 TYPE ,MSG10 
000474 JMP 130L12 
000006 ASL @6(R3) 
000400 BIC #400,a6(R3) 
000040 BIT #40,a6(R3) 
BEQ T30L26 


3;SAVE SREGO FOR TYPEOUT 

3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
SAVE (BECR1) 

WITH BECRI= 

7;SAVE S$REG1 FOR TYPEOUT 

+360 ee ASCIICALL DIGITS) 


1$: 
T30L25: : 
[CLEAR SHIFTED RDY BIT 
sALL BR TESTED? 
BRANCH IF NO 


000006 
000006 


015220 001726 
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CZKUBB.P11 27-APR-78 15:02 TEST PASSING OF GRANTS 
2476 015222 012773 015246 000014 MOV #T30L27,a14(R3) ;SETUP FOR INT. 
2477 +015230 012772 015116 000014 MOV #T30L29,a14(R2) ;SETUP FOR ERROR INT. 
2478 015236 012772 000001 000006 MOV #1,a6(R2) ;HAVE HIGHER UBE TRY TO INT. 
ah 015244 000711 BR T30L30 ;LET LOWER UBE INT. 
2481 015246 006373 000006 T30L27: ASL @6(R3) 700 NEXT LEVEL BR 
2482 015252 042773 000400 000006 BIC #400,a6(R3) :CLEAR SHIFTED RDY 
2483 015260 032773 909040 000006 BIT #49,a6(R3) ;ALL BR TESTED? 
2484 015266 001703 BEQ T30L26 ;BRANCH IF NO 
2485 015270 012772 006003 000006 MOV a co @6(R2) ;HAVE HIGHER UBE DO FUN3 
2486 015276 005037 177776 CLR a#P ;ALLOW REQUESTS 
2487 015302 105772 000006 1$: TSTB 36th) 71S UBE DONE? 
2488 015306 100375 BPL 1$ > BRANCH IF NO 
2489 015310 012737 000340 177776 MOV #340,a#PSW 7SET LEVEL =7 
2490 015316 005300 DEC RO ;ADJUST UBE COUNT 
2491 015320 005700 TST RO ;ALL UBE TESTED? 
ee 015322 001247 BNE T30L28 BRANCH IF NO 
2494 PART 2 
2495 
2496 015324 012700 000510 MOV #510,R0 :GET FIRST POSSIBLE VECTOR AREA 
2497 015330 012720 015504 T30L09: MOV #T30L08,(RO)+ ;SET UP VECTOR AREA TO HANDLE DOUBLE INTERRUPTS 
2498 015334 012720 000340 MOV #340, (RO)+ 7SET PRIORITY = 
2499 015340 022700 001000 CMP #1000,R0 ;AT END OF AREA? 
2500 015344 001371 BNE T30L09 sBRANCH IF NO 
2501 015346 016700 012436 MOV BUFF1,RO ;GET HIGHEST PRIORITY UBE ADDRESS POINTER 
2502 015352 016701 012434 MOV BUFF1+2,R1 ;GET NEXT PRIORITY UBE ADDRESS POINTER 
2503 015356 012770 000002 000006 130L14: MOV #2,a6(RO) ;HAVE HIGHER PRIORITY UBE DO BR4 
2504 5364 012771 000004 000006 MOV #4,86(R1) ;HAVE NEXT LOWER ELEC. PRIORITY UBE DO BRS 
2505 015372 012770 015504 000014 MOV #T30L08,a14(RO) ;SET UP HIGHER PRIORITY UBE VECTOR FOR DOUBLE INT. 
2506 015400 012771 015420 000014 MOV #130L10,a14(R1) ;SET UP FOR INTERRUPT FROM NEXT LOWER ELEC. PRIORITY UBE 
2507 015406 005277 165122 T30L11: INC @BEGO START INTERRUPT 
2508 015412 005037 177776 CLR a#PSw sALLOW INTERRUPTS 
2509 015416 000001 WAIT 
2510 015420 022626 T30L10: CMP (SP)+,(SP)+ sRESTORE STACK 
2511 015422 006371 000006 ASL @6(R1) sHAVE NEXT PRIORITY UBE INT. ONE LEVEL HIGHER 
2512 015426 042771 000400 000006 BIC #400,a6(R1) sCLEAR SHIFTED RDY 
2513 015434 032771 000040 000006 BIT #40,a6(R1) : TESTED ALL BR LEVELS? 
2514 015442 001761 BEQ T30L11 BRANCH IF NO 
2515 015444 020067 012350 CMP RO,BUFF1+10 ; TESTED ALL UBE POSSIBLE? 
2516 015450 001511 BEQ T30L12 ;BRANCH IF YES TO CLEAR BECR1 AND RESTORE TRAPS 
2517 015452 020067 012332 CMP RO,BUFF1 7 JUST TESTED FIRST UBE? 
2518 015456 001005 BNE T30L13 ;BRANCH IF NO 
2519 015460 016700 012326 MOV BUFF1+2,R0 ; TEST SECOND HIGHEST PRIORITY UBE 
2520 015464 016701 012324 MOV BUFF144,R1 :GET THIRD HIGHEST PRIORITY UBE 
2521 015470 000732 BR T30L14 7GO TEST SECOND HIGHEST PRIORITY UBE 
2522 015472 016700 012316 T30L13: MOV BUFF14#4,R0 ;TEST THIRD HIGHEST PRIORITY UBE 
2523 015476 016701 012314 MOV BUFF146,R1 7GET FOURTH HIGHEST PRIORITY UBE 
2524 015502 000725 BR T30L14 7GO TEST THIRD HIGH PRIORITY UBE 
2525 015504 022626 T30L08: CMP (SP)+,(SP)+ RESTORE STACK 
2526 015506 016067 000014 163500 MOV 14(RO),$REGO 7SAVE INTERRUPT VECTOR OF BAD UBE 
2527 015514 012767 000004 163474 MOV #4,$REG1 :SAVE BAD BR LEVEL 
2528 015522 016167 000014 163470 MOV 14(R1),$REG2 drt NEXT HIGHER PRIORITY UBE VECTOR 
2529 015530 032771 000004 000006 BIT #4,a86(R1) WAS BR=5? 
2530 015536 001404 BEQ T30L15 BRANCH IF NO 
2531 015540 012767 000005 163454 MOV #5,$REG3 :BR= 5 
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015546 000413 Bk T30L17 :GO INDICATE ERROR 
000010 000006 T30L15: WAS BR=6? 
B :BRANCH IF NO 


T30L16 
000006 163434 . ; INDICATE BR=6 
B 3GO INDICATE ERROR 
000007 163424 T30L16: INDICATE BR=7 
T30L17: ERROR: TEST OF PASSING GRANTS FAILED 
020000 163364 BIT #SW13,aSWR ; INHIBIT ERROR TYPEOUTS? 
BNE T30L12 BRANCH IF YES 
027156 TYPE ,MSG7 : TYPE FAILING UBE VECTOR 
163374 SREGO,-(SP) 3:SAVE SREGO FOR TYPEOUT 
POC 3:GO0 TYPE--OCTAL ASCII(ALL DIGITS) 
027200 TYPE ,MSG8 TYPE FAILING UBE BR LEVEL 
163364 SREG1,-(SP) 3;SAVE SREG1 FOR TYPEOUT 
TYPOC 3:GO0 TYPE=--OCTAL ASCII(ALL DIGITS) 
027215 TYPE ,MSG9 
027156 TYPE ,MSG7 TYPE UBE USED TO TEST FAILING ONE 
163350 MOV SREG2,-(SP) 3:SAVE SREG2 FOR TYPEOUT 
TYPOC 3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
027200 TYPE ,MSG8 TYPE BR LEVEL TESTING 
163340 MOV SREG3,-(SP) 3;SAVE SREG3 FOR TYPEOUT 
TYPOC 3:GO TYPE--OCTAL ASCII(ALL DIGITS) 
027251 TYPE ,MSG10 


JSR PC, TERRPC : TYPE PC OF ERROR MSG 
164642 T30L12: #6003, aBE1CR1 ; SETUP UBE TO DO A FUN3 
164652 MOV #6003,aBE2CR1 ; SETUP UBE TO DO A FUN3 
164664 BE3CR1 sARE THERE 3 UBE? 
1$ ;BRANCH IF NO 
006003 164654 #6003, aBE3CR1 ;SETUP UBE TO DO A FUN3 
164666 BE4CR1 ;ARE THERE 4 UBE? 
1$ BRANCH IF NO 
006003 164656 eee’ @BE4CRI SETUP UBE TO DO A FUNS 
177776 : CLR a#P sALLOW ALL UBE TO DO FUNS 
164574 : TSTB aBe ICRI FIRST UBE DONE? 
BPL 2$ BRANCH IF NO 
164604 : TSTB @BE2CR1 SECOND UBE DONE? 
BPL 3$ ;BRANCH IF NO 
164614 TST BE3SCR1 TARE THERE THREE UBE? 
BEQ 6$ BRANCH IF NO 
164606 : ie pean ; THIRD UBE DONE? 
L 


164616 TST BE4CRI 


BEQ 6$ 
164610 5$: TSTB @BE4CR1 FOURTH UBE DONE? 
100375 BPL 5$ BRANCH IF NO 


RESTORE TRAP CATCHER 
012700 000510 6$: #510,R0 :GET FIRST VECTOR ADDRESS 


000512 Mm 
T30L20: ;PUT ADDRESS OF NEXT LOC IN THIS ONE 
C 0 ;PUT HALT ” NEXT LOCATION 
(R1)+,(R1)+ INC R1 BY 
001000 RO, #1000 zAT END OF VECTOR AREA? 
T30L20 ;BRANCH IF NO 
016034 005767 163072 SPASS FIRST PASS OF PROGRAM? 
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2588 016040 001002 BNE $EOP BRANCH IF NO 
016042 104401 020353 TYPE ,MSG2 sALL EXERCISORS TESTED 
:NOTE:TO TEST PASSING OF GRANTS FOR 
; THE LAST UBE,IT SHOULD BE 
; SWAPPED WITH A UBE OF HIGHER 
sELECTRICAL PRIORITY 


-SBTTL END OF PASS ROUTINE 


IPSS SSIS ITEP iii ti iri irri titi titi i isi iit ii iit 
‘ SINCREMENT THE PASS NUMBER ($PASS) 
s*TYPE “‘END PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 
:*IF THERES A MONITOR GO TO IT 
;*IF THERE ISN'T JUMP TO START1 


016046 SEOP: 
000004 


163060 STSTNM 3:ZERO THE TEST NUMBER 
163154 STIMES :;ZERO THE NUMBER OF ITERATIONS 
163046 SPASS 3; INCREMENT THE PASS NUMBER 
100000 163040 4. | ona nataate ;:DON'T ALLOW A NEG. NUMBER 

+ 


SEOPCT: . 1 
SDOAGN 7: YES 
 civedernits ; RESTORE COUNTER 


; LOOP? 


SENDCT: . 


016153 , SENDMG 73 TYPE “END PASS #"° 
163014 SPASS,-(SP) 3:SAVE SPASS FOR TYPEOUT 

3:GO TYPE--DECIMAL ASCII WITH SIGN 
016150 , SENULL 7: TYPE A NULL CHARACTER 
000042 $GET42: a#42,R0 ::GET MONITOR ADDRESS 

SDOAGN 7;BRANCH IF NO MONITOR 
7:CLEAR THE WORLD 
SENDAD: PC, (RO) 3:60 TO MONITOR 
:;SAVE ROOM 


: FOR 
000240 73ACT11 
SDOAGN: 
000137 a(Pc)+ 7 RETURN 
003100 SRTNAD: ol 
377 377 000 SENULL: E -1,-1,0 sNULL CHARACTER STRING 
015 042412 042116 SENDMG: “ASCIZ <15><4.2>/END Pass. #/ 
050040 051501 020123 
016166 000043 
STATI ALTTLA TTT LTA LLL AAA AL 
;SUBROUTINE TO CLEAR ALL UBE REG 
SLIT LILTALTAT TLL LLL A 
016170 005077 164334 CLRREG: CLR @BERE ;CLEAR ERROR CONDITIONS 
R @BECR2 ;CLEAR BECR2 REG 
@BECR1 :CLEAR BECR1 REG, EXCEPT RDY 
@BEBA ;CLEAR BEBA REG 
aBECC ;CLEAR BECC REG 
164276 @BEBD 7CLEAR BEBD REG 
016220 000207 PC ; RETURN 
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BU 
;SUBROUTINE TO RESTORE TRAP CATCHER TO UBE VECTOR AREA 
BU 
016222 010546 RCATCH: MOV R5,-(SP) SAVE R5 ON STACK 
164302 MOV INTVEC,RS5 GET INT. VECTOR 
TST(R5)+ sCALC. INTVEC#2 
164274 MOV RS, @INTVEC ;PUT INTVEC+2 IN INTVEC 
CLR (R5) s;PUT HALT IN INTVEC#+2 
MOV (SP)+,R5 ;RESTORE R5 
016242 000207 RTS PC 


BU 

; SUBROUTINE TO CHECK IF RDY BIT SET 

SATTTATTTTTTT TTT TL 
016244 005004 CRDY: 


2s: INC R5 UPDATE COUNT 
164246 7SEE IF RDY SET 
BMI 1$ BRANCH IF SET 
000200 P WAITED >100 MICROSECS? 
BEQ 2$ ;CONTINUE TO LOOK FOR RDY IF R5 NOT =128 
000001 SET R4=1 TO INDICATE ERROR 
016272 000207 1$: PC RETURN 


BUI 


; SUBROUTINE TO DISREGARD UBE INTERRUPTS 
SU 
016274 016705 164232 DINT: MOV INTVEC,R5 ;GET INTVEC AND 
TST (R5)+ CALC. INTVEC#2 
164224 MOV R5,@INTVEC PUT ADDRESS OF NEXT LOC IN THIS ONE 
000002 oe #2,(R5) PUT AN RTI IN INTVEC#+2 


RTS PC 
BIULL 
; SUBROUTINE TO RESTORE VECTOR AREA 0-56, 174, AND 176 FROM STACK AREA AND PUT TRAP CATCH 
LL 
016314 016705 162704 RVEC: MOV STMPO,RS :GET AREA WHERE VECTOR STORED 
R4 SET R4 =TO FIRST LOC 
1$: ~(R5),(R4)+ RESTORE VECTORS 
000060 #60,R4 AT END OF AREA? 
1$ ;BRANCH IF NO 
000174 “(R5), a#174 + RESTORE SOFTWARE SWR 
000176 ~(R5), a#176 
000060 #60, R4 SET R4 FOR FIRST TRAP CATCHER 
000062 V #62,R5 SET R5=TO FIRST TRAP CATCHER ADDRESS 
R5,(R4)+ PUT ADDRESS OF NEXT LOC IN THIS ONE 
CLR(R4)+ PUT HALT IN NEXT LOC 
CMP (R5)+,(R5)+ 5 BY 4 
000174 CMP ane ; VECTOR AREA? 
N 


3 IF NO 
000200 #200, ;AS ABOVE, PUT TRAP CATCHER IN AREA 200-776 
000202 #202, 
RS, 
(R4)+ 
016402 022525 (R5)+, 


016312 000207 
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CZKUBB.P11 
016404 
016410 
016412 


016420 
016426 


016430 


016466 


016470 
016470 
016476 
016500 


016502 


016572 


022704 
000207 


032777 


0 
000207 


032777 
001101 


000416 
013746 


000413 
105767 


000443 


001000 


000137 
002632 


020000 


027631 
162500 


027754 
162452 


040000 


000004 
016526 
177060 
000004 


000004 


162373 
162377 
001000 
162352 


000200 
000202 


162534 


162474 


000004 


162363 


162410 
162346 


Mm 5 
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END OF PASS ROUTINE 


CMP #1000, R4 
N $ 


BNE 3 
MOV #137,a#200 : RESTORE JMP @#START TO LOC 200 
ef #START ,a#202 


PC [RETURN 
ITIL 
; SUBROUTINE TO TYPE PC OF ERROR MESSAGE 

SAITITTTITA TTT ATA AAA AAA AAA ATA AAA AAA AAA AAA 
TERRPC: BIT #SW13,aSWR : INHIBITS ERROR TYPOUTS? 
BNE 1$ BRANCH IF YES 
TYPE ,MSG15 PC OF ERROR MSG WAS: 
MOV SERRPC,-(SP) 3;SAVE SERRPC FOR TYPEOUT 
TYPOC 3;GO TYPE--OCTAL ASCII(ALL DIGITS) 
TYPE -MSG17 TEST NUMBER WAS: 
MOV STSTNM, -(SP)  ;SAVE STSTNM FOR TYPEOUT 
TYPOS 3GO TYPE -OCTAL ASCII 
-BYTE 2 sTYPE 2 DIGITS 
-BYTE 0 SUPPRESS LEADING ZEROS 
1$: RTS PC 


-SBTTL SCOPE HANDLER ROUTINE 


PARRA AAAA AREA A AAA A RAKE CAAA A RAHA AAA A ATTA TAA ATA TRAE RARE eee eee eee 
:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
: * THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

LOOP ON TEST 

INHIBIT ITERATIONS 

LOOP ON ERROR 


;;SCOPE=I10T 


SSCOPE: 
1$: BIT #B1T14,aSWR +s LOOP ON PRESENT TEST? 
BNE SOVER sYES IF SW14=1 
;M#MMHSTART OF CODE FOR THE XOR TESTERS##RM 
SXTSTR: BR 6$ 321F RUNNING ON THE ‘‘XOR"' TESTER CHANGE 
3: THIS INSTRUCTION TO A ‘'NOP’’ (NOP=240) 

@#ERRVEC,-(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR 
#5$,a#ERRVEC 23SET FOR TIMEOUT 
a#177060 TIME OUT ON XOR? 
(SP)+,a#ERRVEC ;;RESTORE THE ERROR VECTOR 
SSVLAD ::GO TO THE NEXT TEST 

5$: (SP)+,(SP)+ ht THE STACK AFTER °. TIME OUT 
(SP) +, a#ERRVEC + RESTORE THE ERROR VECTOR 
7$ LOOP ON THE PRESENT TEST 
seer FOR THE Kor’ TESTERAAER 
SERFLG 3s HAS AN ERROR OCCURRED? 


3$ [BR IF NO 

SERMAX, SERFLG :ENAX. ERRORS FOR THIS TEST OCCURRED? 
¥B1T09,aSwWR [:LOOP ON ERROR? 

43% 7:BR IF NO 

SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 


SEQ 0064 
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016574 105067 162335 4$: SERFLG 3;ZERO THE ERROR FLAG 
162430 STIMES 3;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
1$ s ESCAPE TO THE NEXT TEST 
004000 162356 3$: #BIT11,aSwWR 3; INHIBIT ITERATIONS? 
1$ 7:BR IF YES 
162310 $PASS self FIRST PASS OF PROGRAM 
1$ INHIBIT ITERATIONS 
162306 SICNT INCREMENT ITERATION COUNT 
162400 162300 STIMES,SICNT 3:;CHECK THE NUMBER OF ITERATIONS MADE 
SOVER 7:BR IF MORE ITERATION REQUIRED 
000001 162270 1$: #1,SICNT >;REINITIALIZE THE ITERATION COUNTER 
162360 M SMXCNT,STIMES ;;SET NUMBER OF ITERATIONS TO DO 
SSVLAD: STSTNM 3;COUNT TEST NUMBERS 
M (SP), $LPADR 7;SAVE SCOPE LOOP ADDRESS 
(SP), $LPERR 7: SAVE ERROR LOOP ADDRESS 
3:CLEAR THE ESCAPE FROM ERROR ADDRESS 
162245 M ‘ 7 :ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
162264 SOVER: STSTNM,Q@DISPLAY ;;DISPLAY TEST NUMBER 
162224 M SLPADR, (SP) ehh pe + jaa ADDRESS 
33 F IX 
016716 000012 SMXCNT: 10. 77MAX. NUMBER OF ITERATIONS 
-SBTTL ERROR HANDLER ROUTINE 


FF RRA RARER AREER ERE KEKEKREEEE 
s*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SERRTYP ON ERROR 

:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

:*SW15= : HALT ON ERROR 

3*SW13=1 INHIBIT ERROR TYPEOUTS 

:*$W10=1 BELL ON ERROR 

7*SwO9=1 LOOP ON ERROR 

7 *CALL 

;* N 3; ERROR=EMT AND N=ERROR ITEM NUMBER 


016720 SERROR: 
105267 162211 7$: SERFLG ::SET THE ERROR FLAG 
7$ ;;DON'T LET THE FLAG GO TO ZERO 
162202 162240 STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
002000 162230 #81710, aSWR ;;BELL ON ERROR? 
1$ 3:NO - SKIP 
001240 RING BELL 
;:COUNT THE NUMBER OF ERRORS 
ie thekee ;:GET ADDRESS OF ERROR INSTRUCTION 
@SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
020000 #81113, aSwR : SKIP TYPEOUT IF SET 
208 ;SKIP TYPEOUTS 
000056 PC, SERRTYP ::G0 TO USER ERROR ROUTINE 
104401 001245 - SCRLF 


005777 162152 aSwR ;;HALT ON ERROR 
3$ :3 SKIP IF bed ue 
;HALT ON ERROR 
001000 162140 : #B1T09,aSwR :;LOOP ON ERROR SWITCH SET? 
017032 001402 4$ ::BR IF NO 
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017034 


017064 


017066 
017066 
017072 
017074 
017076 
017102 


017104 
017110 


017216 


OR MODULE 
27-APR-78 
016716 
005767 
001402 
016716 
022737 
001001 
000000 


000002 


104401 


001004 


016746 
104402 


000207 
013046 


020040 


DIAGNOSTIC 


15:02 


162102 
162172 


162164 
016134 


001245 


001146 


162040 


001250 
000004 


001245 
000004 


001245 


001245 


017216 
000 


000042 


MACY11 30A(1052) 


B 
27-APR-78 


ERROR HANDLER ROUTINE 


4$: 


6$: 


RTI 7 ;RETU 
-SBTTL ERROR MESSAGE@TYPEOUT ROUTINE 


SLPERR, (SP) 
SESCAPE 


5$ 
SESCAPE, (SP) 
#SENDAD ,a#42 
6$ 


6 
15:03 PAGE 55 


7; FUDGE RETURN FOR LOOPING 
3;CHECK FOR AN ESCAPE ADDRESS 
3;BR IF NONE 

>;FUDGE RETURN ADDRESS FOR ESCAPE 


3:ACT=11 AUTO-ACCEPT? 
3;BRANCH IF NO 


PLUAA RRA A RARE AAA A TEAR AAA ATA ATE T AAA T TERRE Ree eee eee eee eee 

z*THIS ROUTINE USES THE “ITEM CONTROL BYTE’’ (SITEMB) TO DETERMINE WHICH 
;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘‘ERROR TABLE"’ ($ERRTB), 
:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
TYPE 


BR 
-ASCIZ 


, SCRLF 
RO,-(SP) 
0 


R 
a4$1TEMB,RO 
1$ 


SERRPC,-(SP) 


RO 
#SERRTB,RO 
(RO)+,2$ 
3$ 


0 

- SCRLF 
(RO)+,4$ 
5$ 

0 

-SCRLF 
(RO) ,RO 
7% 
($P)+,RO 
» SCRLF 
PC 


a(RO)+,-(SP) 


$ 
/ f/f 


z3""CARRIAGE RETURN'' & “LINE FEED" 
3: SAVE RO 
3;PICKUP THE ITEM INDEX 


sc1F ITEM NUMBER IS ZERO, JUST 

3: TYPE THE PC OF THE ERROR 

3: SAVE SERRPC FOR TYPEOUT 

7: ERROR ADDRESS 

3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
3:GET OUT 

;;ADJUST THE INDEX SO THAT IT WILL 
ss WORK FOR THE ERROR TABLE 


3:FORM TABLE POINTER 

7:PICKUP “ERROR MESSAGE’ POINTER 

7:SKIP TYPEOUT IF NO POINTER 

77 TYPE THE “ERROR MESSAGE" 

3:""ERROR MESSAGE'' POINTER GOES HERE 

z7‘"CARRIAGE RETURN’ @ ‘LINE FEED" 

7 PICKUP ‘DATA HEADER’ POINTER 

7: SKIP TYPEOUT IF 0 

>; TYPE THE ‘DATA HEADER" 

7:'‘DATA HEADER’’ POINTER GOES HERE 

3:°"CARRIAGE RETURN'’ & “‘LINE FEED" 

::PICKUP ‘DATA TABLE'’ POINTER 

3:G0 TYPE THE DATA 

7 RESTORE RO 

37 ‘CARRIAGE RETURN'’ & ‘LINE FEED" 
TURN 


3;SAVE a(RO)+ FOR TYPEOUT 

3:GO TYPE--OCTAL ASCII(ALL DIGITS) 
i:1S THERE ANOTHER NUMBER? 

::BR IF NO 

7: TYPE TWO(2) SPACES 

pel 

3: TWO(2) SPACES 


SEQ 0066 
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P11 27-APR-78 15:02 ERROR MESSAGE TYPEQUT ROUTINE SEQ 0067 


017222 -EVEN 
-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


pRRP AeA RATE REA AA TAA AA AE TET TATA TATA eee K eee eee eee eee eee 
;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
>*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
De A ya WITH SPACES. 

ALL: 


ye MOV NUM, - (SP) 3;PUT THE BINARY NUMBER ON THE STACK 
:* PDS 3:G0 TO THE ROUTINE 


017222 STYPDS: 
010046 RO,-(SP) ;:PUSH RO ON STACK 
;;PUSH R1 ON STACK 
3:PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
3:PUSH R5 ON STACK 
020200 #20200, -(SP) 3;SET BLANK SWITCH AND SIGN 
000020 20(SP),R5 ::GET THE INPUT NUMBER 
1$ 7:BR IF INPUT IS POS. 
R5 7:MAKE THE BINARY NUMBER POS. 
000055 000001 #'=,1(SP) 7;MAKE THE ASCII NUMBER NEG. 
1$: RO ::ZERO THE CONSTANTS INDEX 
017436 #SDBLK ,R3 ;;SETUP THE OUTPUT POINTER 
000040 #' ,(R3)+ 3:SET THE FIRST CHARACTER TO A BLANK 
2 ;;CLEAR THE BCD NUMBER 


: R 
0174% SDTBL(RO),R1 ::GET THE CONSTANT 
R1,R5 ::FORM THIS BCD DIGIT 
::BR IF DONE 
>: INCREASE THE BCD DIGIT BY 1 


;;ADD BACK THE CONSTANT 
7;CHECK IF BCD DIGIT=0 
3:FALL THROUGH IF 0 
::STILL DOING LEADING 0'S? 
::BR IF YES 
33 MSD? 
6$ ::BR IF NO 
000001 177777 . 7: YES--SET THE SIGN 
000060 6$: #'0,R2 ;:;MAKE THE BCD DIGIT ASCII 
000040 : #" ,R2 ;;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
;;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
;JUST INCREMENTING 
000010 7:CHECK THE TABLE INDEX 
2$ 3:GO DO THE NEXT DIGIT 
3:60 TO EXIT 
3;GET THE LSD 
+h CHANGE TO ASCII 
WAS a LSD THE FIRST NON-ZERO? 


9$ :BR IF NO 
177777 =177776 ~1(SP),-2(R3) TIYES=-SET THE SIGN FOR TYPING 
9 (R3) ::SET THE TERMINATOR 
(SP)+,R5 3;POP STACK INTO R5 
017400 012603 (SP)+,R3 ;:POP STACK INTO R3 





UNIBUS EXERCISOR MODULE DIAGNOSTIC 
CZKUBB.P11 


017402 
017404 
017406 


017436 


017446 


017546 
017552 


27-APR-78 1 


012602 


000012 
000004 


105767 


016746 
105366 


5:02 


017436 
000002 000004 


161537 
000002 


000002 
000011 
000200 


000130 


000056 
161444 


161434 
000001 


Dd 
MACY11 30A(1052) 27-APR-78 


6 
15:03 PAGE 57 


CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


MOV (SP)+,R2 3;POP STACK INTO R2 
MOV (SP)+,R1 3;POP STACK INTO R1 
MOV (SP)+,RO 3;POP STACK INTO RO 
TYPE , SOBLK ;:NOW TYPE THE NUMBER 
MOV 2(SP),4(SP) ; ADJUST THE STACK 
MOV (SP)+, (SP) 
RTI ;;RETURN TO USER 
$DTBL: 10000 
1000. 
100. 
10. 
SDBLK: BLK 


-BLKW 4 
-SBTTL TYPE ROUTINE 


FERRARA AAA AA EAE EAE EERE EERE RARE EEARAAEAERERATERERERERE 


" #ROUTINE ‘TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 


;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


> *NOTE1 SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
s*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
seNOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
 eCALL: 
3*1) USING A TRAP INSTRUCTION 
ti TYPE »MESADR ::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
** 
;* TYPE 
;* MESADR 
;* 
$TYPE: TSTB STPFLG 7:18 THERE A TERMINAL? 
BPL 1$ 7:BR IF YES 
HALT 7:HALT HERE IF NO TERMINAL 
BR 3$ 7 LEAVE 
1$ MOV RO,-(SP) 7; SAVE RO 
MOV a2(SP),RO 3:GET ADDRESS OF ASCIZ STRING 
2$ MOVB (RO)+,-(SP) ;:PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4$ 7:BR IF IT ISN'T THE TERMINATOR 
TST (SP)+ 3: 1F TERMINATOR POP IT OFF THE STACK 
60$: MOV (SP)+,RO 7 RESTORE RO 
3$: ADD #2, (SP) 7 ADJUST RETURN PC 
RTI 7; RETURN 
4$ CMPB #HT, (SP) ;;BRANCH IF .<HT> 
BEQ 8$ 
CMPB #CRLF, (SP) >;BRANCH IF NOT <CRLF> 
BNE 5$ 
TST (SP)+ :7;POP <CR><LF> EQUIV 
TYPE 7: TYPE A CR AND LF 
SCRLF 
CLRB SCHARCNT 7: CLEAR CHARACTER COUNT 
BR 23 3;GET NEXT CHARACTER 
5$: JSR PC, STYPEC 3:60 TYPE THIS CHARACTER 
6$: CMPB SFILLC,(SP)+ 348 IT TIME FOR 4 CHARS.? 
BNE 23 :1f NO GO GET NEXT CHA 
MOV SNULL,~(SP) GET # OF FILLER CHARS. "NEEDED 
>; AND. THE NULL CHAR. 
7$: DECB 1(SP) ::DOES A NULL NEED TO BE TYPED? 


SEQ 0068 
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017556 002770 6$ :;BR IF NO--GO POP THE NULL OFF OF STACK 
017560 004767 000032 PC, STYPEC 3;GO TYPE A NULL 

017564 105367 000072 SCHARCNT 3:00 NOT COUNT AS A COUNT 

017570 000770 7$ ; LOOP 


sHORIZONTAL TAB PROCESSOR 


017572 112716 000040 8S: # (SP) ::REPLACE TAB WITH SPACE 
000014 9$: PC, $TYPEC TYPE A SPACE 
000007 000052 #7 SCHARCNT BRANCH IF NOT AT 
9$ ::TAB STOP 
(SP)+ S:POP SPACE OFF STACK 
BR 2$ GET NEXT CHARACTER 
161360 STYPEC: asTPs StWAIT UNTIL PRINTER IS READY 
' B STYPEC 
000002 161352 2(SP) ,aSTPB LOAD CHAR TO BE TYPED INTO DATA REG. 
000015 000002 #CR,2(SP) 1S CHARACTER A CARRIAGE RETURN? 
1$ BRANCH IF NO 
000014 SCHARCNT : :YES-=CLEAR CHARACTER COUNT 
YPEX 
000012 000002 18: #LF.2(SP) 31S CHARACTER A LINE FEED? 
STYPEX BRANCH IF YES 
INCB (PC) + SICOUNT THE CHARACTER 
SCHARCNT:.WORD 0 CHARACTER COUNT STORAGE 
017664 000207 STYPEX: RTS PC 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


POE CCST STITT Pierre err rir rir irri iii iii ii iii iii tii i it) 
:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL (ASCII) NUMBER AND TYPE IT. 

i *STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


s*CALL: 

4 MOV NUM, -(SP) > NUMBER TO BE TYPED 
:* TYPOS 3:CALL FOR TYPEOUT 

;* BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;* BYTE 4 7:M=1 OR O 

:* 321=TYPE LEADING ZEROS 

;* 3: 0=SUPPRESS LEADING ZEROS 


2 *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
*STYPOS OR S$TYPOC 

:*CALL: 

se MOV NUM, (SP) ; NUMBER TO BE TYPED 

:* TYPON 7:CALL FOR TYPEOUT 


® 

ae HERE FOR TYPEOUT OF A 16 BIT NUMBER 
7 *CALL: 
;* MOV NUM, =-(SP) :;NUMBER TO BE TYPED 
3* TYPOC 3;CALL FOR TYPEOUT 


017666 017646 000000 STYPOS: MOV a(SP),-(SP) ::PICKUP THE MODE 

017672 116667 000001 000211 MOVB 1(SP),SOFILL ::LOAD ZERO FILL SWITCH 
017700 112667 000207 MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
017704 062716 000002 ADD #2, (SP) ; ADJUST RETURN ADDRESS 
017710 000406 BR STYPON 
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017712 112767 000001 000171 $TYPOC: #1,S0FILL 3;SET THE ZERO FILL SWITCH 
000006 000165 ™ #6, SOMODE +1 SET FOR SIX(6) DIGITS 
000005 000154 S$TYPON: : 23SéT — ITERATION COUNT 


a3 E RS 
000145 3:GET THE NUMBER OF DIGITS TO TYPE 


000006 #6,R4 ;: SUBTRACT IT FOR MAX. ALLOWED 
000132 R4 , SOMODE 7:SAVE IT FOR USE 
000125 SOFILL,R4 ::GET THE ZERO FILL SWITCH 
000012 12(SP),R5 ::PICKUP THE INPUT NUMBER 
; R3 3:CLEAR THE OUTPUT WORD 
;:ROTATE MSB INTO ‘'C"’ 
3:60 DO MSB 
;:FORM THIS DIGIT 


: 3 3:GET LSB OF THIS DIGIT 
000076 si: TYPE THIS DIGIT? 
7$ 3:BR IF NO 
177770 3:GET RID OF JUNK 
4$ 7: TEST FOR 0 
3: SUPPRESS THIS 0? 
;:BR IF YES 
: 7;DON'T SUPPRESS ANYMORE 0'S 
000060 3:MAKE THIS DIGIT ASCII 
3:MAKE ASCII IF NOT ALREADY 
3: SAVE FOR TYPING 
8 3:G0 TYPE THIS DIGIT 
000032 : 3; COUNT BY 1 
2$ 7:BR IF MORE TO DO 
::BR IF DONE 
3: INSURE LAST DIGIT ISN'T A BLANK 
3:G0 DO THE LAST DIGIT 
7 RESTORE R5 
> RESTORE R4 
(SP)+,R3 7 RESTORE R3 
000002 000004 2(SP),4(SP) 3;SET THE STACK FOR RETURNING 
(SP)+, (SP) 
37 :RETURN 


:: STORAGE FOR ASCII DIGIT 
3: TERMINATOR FOR TYPE ROUTINE 
:;OCTAL DIGIT COUNTER 
0 : ::ZERO FILL SWITCH 
020112 000000 : .WORD 0 ; NUMBER OF DIGITS TO TYPE 


POPPI CITT r trier irri irri rir r iti it itiitiiritiitiii iit. 
:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘“‘TRAP’’ INSTRUCTION 
*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
3*GO TO THAT ROUTINE. 


020114 010046 STRAP: MOV RO,-(SP) 7:SAVE RO 
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020116 016600 000002 2(SP),R0 3:GET TRAP ADDRESS 
=(RO) 3;BACKUP BY 2 
(RO) ,RO 3:GET RIGHT BYTE OF TRAP 
RO 3;POSITION FOR INDEXING 
020150 STRPAD(RO),RO 3; INDEX TO TABLE 
020134 000200 RO 3:G0 TO ROUTINE 


::THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 
020136 011646 STRAP2: MOV (SP),=(SP) ;:MOVE THE PC DOWN 
020140 016666 000004 000002 MOV 4(SP),2(SP) ;:MOVE THE PSW DOWN 
020146 000002 RTI i RESTORE THE PSW 
-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE “'TRAP’’ INSTRUCTION. 


: ROUTINE 


020150 020136 STRPAD: . STRAP2 
017446 $ 7; CALL=TYPE TRAP#+1(104401) TTY TYPEOUT ROUTINE 
017712 :;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
017666 3; CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
017726 :;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
020162 017222 STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


-SBTTL POWER DOWN AND UP ROUTINES 


PRRRARAAAAAAAAAAAAAAAA AAA ERATE TATA AAA AAA eee eeA eee eeee ee eee 
“POWER DOWN ROUTINE 
020164 012737 020324 000024 $PWRDN: MOV #SILLUP ,a@#PWRVEC ;;SET FOR FAST UP 
000340 000026 #340 ,a#PWRVEC+2 ;;PRIO:7 
33 RO ON STACK 
R1 ON STACK 
R2 ON STACK 
R3 ON STACK 
R4 ON STACK 
; R5 ON STACK 
160752 P 33 @SWR ON STACK 
000104 - SSAVR6 7: SAVE SP 
020236 000024 #SPWRUP, a#PWRVEC ;;SET UP VECTOR 


020234 000776 272 3 HANG UP 


PEST II SITET ii iii ii iii iti tiitiiiiitititiii iii titi iti iti i itt 
;POWER UP ROUTINE 
020236 012737 020324 000024 $PwRUP: MOV #SILLUP ,a#PWRVEC 3 5aet FOR FAST DOWN 
000060 SSAVRO, SP ::GET SP 
000054 SSAVR6 ;:WAIT LOOP FOR THE TTY 
000050 1$: SSAVR6 7:WAIT FOR THE INC 
1$ ::0F WORD 
160704 (SP)+,@SWR ;;POP STACK INTO @SwR 
020266 012605 (SP)+,R5 7:POP STACK INTO RS 
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020270 012604 (SP)+,R4 :;POP STACK INTO R4 
(SP)+,R3 3:POP STACK INTO R3 
(SP)+,R2 : 3 POP STACK INTO R2 
(SP)+,R1 :POP STACK INTO R1 
(SP)+,R0 : POP STACK INTO RO 
020164 000024 #SPURON ,a#PWRVEC 3;SET UP THE POWER DOWN VECTOR 
000340 000026 #340, a#PWRVEC+2 33PRIO:7 
REPORT THE POWER FAILURE 
SPWRMG: . SPOWER ::POWER FAIL MESSAGE POINTER 


SILLUP: 3: THE POWER UP SEQUENCE WAS STARTED 
. :; BEFORE THE POWER DOWN WAS COMPLETE 
SSAVR6: 0 :;PUT THE SP HERE 
047520 042527 SPOWER: .ASCIZ <15><12>"'POWER’’ 


-EVEN 


FRR EEA ARATE ARERR TEAR EAA AAAREEKARARERERREEEE 
SERRA ARERR AAA AERA A AAA AAERAEREREKARAEKKERAEKEKERE EEE 


020342 005015 — 050101 mSG1: eASCIZ<15><12>/EMAP: / 


040412 046114 MSG2: .ASCII<15><12>/ALL EXERCISORS TESTED/<15><12> 
042530 041522 
051117 020123 
052123 042105 


047040 052117 -ASCII/  NOTE:TO TEST PASSING OF GRANTS FOR THE LAST UBE/<15><12> 


020340 000122 


052440 
020040 -ASCII/ IT SHOULD BE SWAPPED WITH A UBE/<15><12> 


-ASCIZ/ OF HIGHER ELECTRICAL PRIORITY/<15><12> 


MSGS: -ASC1Z2<15><12>*BUS PARITY NOT TESTED ON 11/05 OR 11/20 MACHINES*<15><12> 


020662 046440 041501 044510 
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CZKUBB.P11 
020670 


021126 
021130 


021240 
021242 


021316 


27-APR-78 


042516 


051524 
001214 


120 
000123 
001214 


000047 


15:02 
006523 


051505 
040524 


046103 
020107 
042522 
052116 
000040 


001216 


051523 
020103 


000000 


020101 


020107 


020104 


001216 
040524 


020101 


000012 


047105 
020114 
035122 
040506 
052040 
040505 
042101 


020107 
047105 


000000 


047131 


040527 


020114 


030447 
042101 


042502 


001220 
020114 


030047 
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POWER DOWN AND UP ROUTINES 


EMI: 


-ASCIZ/NO RESPONSE TO REG ADDRESSES OR NO DEVICE PRESENT/ 


-ASCIZ/FATAL ERROR:REG FAILED TO CLEAR/ 
-ASCIZ*REG ADD/REG CONTENTS * 


-EVEN 
-WORD $SREGO,SREG1,0 
-ASCIZ/FATAL ERROR: CPU DID NOT RECEIVE SSYN/ 


eASCIZ/PC WAS/ 


- EVEN 
-WORD $REGO,0 
+ASCIZ/FATAL ERROR:REG FAILED TO FLOAT A ‘1'/ 


-ASCIZ*REG ADD/DATA IS/DATA SHOULD BE* 


-WORD $REGO,$REG1,$REG2,0 
-ASCIZ/FATAL ERROR:REG FAILED TO FLOAT A ‘O'/ 


SEQ 0073 
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3260 021320 040506 040524 020114 EM6: -ASCIZ/FATAL ERROR: CONTROL REG HELD WRONG DATA/ 


3265 021356 047522 043516 042040 


3267 021370 040506 040524 020114 EM7: -ASCIZ/FATAL ERROR:DUAL ADDRESSING ERROR/ 
3268 021376 051105 047522 035122 


3271 021420 047111 020107 051105 
3273 021432 042522 020107 042101 DH?: -ASCIZ*REG ADD/REG ADD WERE SIMULATANEOUSLY WRITTEN* 


3279 021476 053440 044522 052124 


3281 021510 EVEN 
3282 021510 001214 001216 000000 DT7: -WORD SREGO,SREG1,0 
3283 021516 051105 047522 035122 EMB: eASCIZ/ERROR: SETTING PB PARITY FAILED TO CAUSE CPU TO TRAP/ 


000 
3292 021603 105 051122 051117 EM9: -ASCIZ/ERROR: GO BIT FAILED TO LOAD '1'/ 


3296 021632 046040 040517 020104 

3298 021644 051105 047522 035122 EM10: .ASCIZ/ERROR: GO BIT FAILED TO LOAD 'O'/ 
3301 021666 042105 052040 020117 

3302 021674 047514 and 023440 

3304 021705 106 052101 046101 EM11:  .ASCIZ/FATAL ERROR: GO BIT FAILED TO CLEAR/ 


3309 021742 ane 042514 051101 


3311 021751 106 052101 046101 EM12: .ASCIZ/FATAL ERROR: READY BIT FAILED TO SET/ 
3312 021756 042440 051122 051117 
3313 021764 020072 042522 042101 
3314 021772 020131 044502 020124 
3315 022000 040506 046111 042105 


UNIBUS EXERCISOR MODULE DIAGNOSTIC 
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022460 


052040 


044440 


020117 
041440 
041040 
020060 
041505 


051122 


041505 
052101 


052522 
020122 


053105 
042502 


052116 


042523 
042514 
052111 
043117 
030522 


051117 


031122 
046101 


052120 
051511 
051120 
054524 


035122 


046105 
041040 


051105 
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POWER DOWN AND UP ROUTINES 


EM14: 


-ASC1Z/TO CLEAR BIT 10 OF BECRI/ 


-ASCIZ/ERROR: ERROR BITS IN BECR2 SET WHEN SHOULD BE CLEAR/ 


-ASCIZ/CONTENTS OF BECR2/ 


-ASCIZ/FATAL ERROR: READY BIT FAILED TO CLEAR OR GO FAILED TO SET/ 


-ASCIZ/ERROR: UBE FAILED TO INTERRUPT/ 


-ASCIZ*BR IS) / PRIORITY IS* 


-ASCIZ/ERROR: UBE INTERRUPTED WHEN PSW AT SAME PRIORITY LEVEL/ 


-ASCIZ/UBE BR WAS/ 
-ASCIZ/ERROR: UBE FALSELY INTERRUPTED AT A HIGHER LEVEL/ 


SEQ 0075 
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022466 052522 052120 042105 
020124 020101 
044107 051105 
053105 046105 


043511 042510 > =. ASCIZ/HIGHER LEVEL WAS/ 


-ASCIZ/ERROR: UBE INTERRUPTED TO WRONG VECTOR/ 
052103 
051117 : -ASCIZ/ERROR: SIMULTANEOUS GO FAILED/ 
046111 042105 
951122 051117 :  .ASCIZ/ERROR: NO, NO SACK BIT FALSELY SET/ 


-ASCIZ/ERROR: NO INT. SSYN BIT FALSELY SET/ 


-ASCIZ/ERROR: DATI FAILED TO LOAD PROPER DATA/ 


040504 
020104 >:  .ASCIZ*BEBD /MEM DATA/MEM ADD/DATA SHOULD BE IN MEM* 


020116 
042515 000115 


-EVEN 
001214 001216 001220 : .WORD $REGO,SREG1,$REG2,$REG3,0 
043040 :  .ASCIZ/DATO FAILED TO LOAD PROPER DATA/ 


023134 020104 051120 050117 
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023142 051105 042040 052101 


044524 020120 EM26: .ASCIZ/DATIP FAILED TO LOAD PROPER DATA/ 


040504 
041117 :  .ASCIZ/DATOB FILED TO LOAD PROPER DATA/ 
042105 
047514 
047522 
040504 


020111 : -ASCIZ/DATI FAILED TO SET RDY/ 


-ASCIZ/DATO FAILED TO SET RDY/ 


-ASCIZ/DATIP FAILED TO SET RDY/ 


051040 054504 
052101 041117 :  .ASCIZ/DATOB FAILED TO SET RDY/ 
044501 042514 
047524 051440 
051040 054504 


051122 051117 : -ASCIZ/ERROR: INH. DATA SHIFT ON DATIP FAILED/ 


044501 
035122 :  .ASCIZ/ERROR: DATOB ON DATIP FAILED/ 


-ASCIZ/ERROR: UBE DID DATI FROM WRONG LOCATION/ 


-ASCIZ/MEM LOC WANTED/ 
047101 


035122 :  ,ASCIZ/ERROR: BEBA LOWER 16 BITS DID NOT COUNT BY 2/ 
041040 041105 020101 





UNIBUS EXERCISOR MODULE DIAGNOSTIC 
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CZKUBB.P11 
023620 


047514 


027124 


042527 


026066 
047522 


054502 
051122 


047440 


020122 


054502 
024507 


047125 
030501 
035122 


030440 
051117 


046101 
051117 


020116 


N 6 
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POWER DOWN AND UP ROUTINES 


-ASCIZ*(REG) /DATA SHOULD BE* 


-ASCIZ/ERROR: 


BEBA BIT A16,17 DID NOT COUNT=0/ 


eASCIZ/A16,A17/ 


-ASCIZ/ERROR: 


-ASCIZ/ERROR: 


-ASCIZ/ERROR: 


-ASCIZ/ERROR: 


-ASCIZ/ERROR: 


BEBA DID NOT COUNT BY 1/ 


INTERRUPT FAILED TO UPDATE BECC TO CORRECT VALUE/ 


BEBA INCREMENTED WHEN IT WAS INHIBITED/ 


BECC INCREMENTED WHEN IT WAS INHIBITED/ 


UBE FAILED TO INT. ON DONE/ 


SEQ 0078 
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EM42: -ASCIZ/ERROR: CCOVF NOT CLEARED BY GO/ 


054502 043440 


047522 vga :  .ASCIZ/ERROR: UBE DID NOT DO DATO TO PROPER # OF LOCS. (4)/ 
052117 
040504 
020117 
051105 
020106 
020056 


051106 >:  .ASCIZ*ADD FROM/TO WERE WRITTEN® 
020117 
053440 

052124 047105 


051122 051117 : .ASCIZ/ERROR: INT. ON DONE BIT NOT CLEARED/ 
047111 027124 
020116 047504 
041040 052111 
052117 041440 
051101 042105 


051122 051117 :  .ASCIZ/ERROR: CCOVF NOT SET/ 
053117 
020124 


ote : -ASCIZ/ERROR: DATO FROM BECC NOT DONE PROPERLY/ 
041040 
047516 
042516 
042520 


020040 : -ASCIZ*ADD /DATA /DATA SHOULD BE* 


-ASCIZ/ERROR: UBE DID NOT DO 2 DATO FOR EACH REQUEST/ 


052521 
035122 :  .ASCIZ/ERROR: UBE DID NOT DO 2 DATIP FOR EACH REQUEST/ 


024766 042040 020117 020062 
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-P11 
024774 


025454 


040504 


044514 


044524 


042040 
047522 


044123 
051122 


042516 


020120 
040505 
050505 

000 
051117 
020122 
047040 
047117 
035122 
042040 
052117 
051040 


051117 


042105 
051117 


046102 
051505 


047040 
042517 


020123 


. = 
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MSG4: 


EMS6: 


-ASCIZ/ERROR: NPR DATO NOT DONE/ 


-ASCIZ/ERROR: NPR DID NOT SET RDY/ 


-ASCIZ/ERROR: UBE DID NOT INT. WHEN NPR FINISHED/ 


-ASCIZ/ERROR: TWO LOC. WRITTEN WHEN ONE NPR AND INT. ON DONE ENABLED/ 


-ASCII<15><12>/TESTING UBE WILL NOT INTERRUPT DURING NPR/<15><12> 


-ASCIZ*IF DOES, CPU WILL GO DOWN*<15><12>*ENTERING TEST®* 


eASCIZ<15><12>/EXITING TEST/ 


-ASCIZ/ERROR: TEST OF WRONG A LINES ERROR BIT FAILED/ 


SEQ 0080 
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CZKUBB.P11 
625462 


6 
026134 


051105 


047522 


051440 


020117 


044501 
051440 


041505 
046101 
044440 
052522 
041440 


051122 


051440 


020122 
040506 

000 
031122 
034440 


042523 
052105 


047111 


042514 


052105 
034040 
042502 


052105 
030440 
041940 


000 
046103 
044502 
043117 
031122 
042523 
052116 
052120 
052520 


051117 


046111 
051107 


052105 


dD 7 
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EMS7: 


-ASCIZ/BECR2 BIT 9 FALSELY SET/ 


eASCIZ/TO INTERRUPT CPU/ 


-ASCIZ/ERROR: TEST OF NSSYN ERROR BIT FAILED/ 


-ASCIZ/TO SET BIT 8 OF BECR2/ 


-ASCI1Z/TO SET BIT 15 OF BECRI/ 


-ASC1Z/TO CLEAR BIT 8 OF BECR2/ 


-ASCIZ/FALSELY INTERRUPTED CPU/ 


-ASCIZ/ERROR: TEST OF WRONG GRANT OR NOT ONE GRANT ERROR BITS FAILED/ 


-ASCIZ/NO GRANT OR NOT ONE GRANT ERROR BIT FALSELY SET/ 


SEQ 0081 
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CZKUBB.P11 
026135 


026604 


047440 


044527 


041505 
051122 


044501 
051440 


046111 
020117 
020122 
041440 


020117 


020106 


044124 
030522 


044440 
047117 
020105 


020107 


020131 


042514 
052111 
043117 
030522 


051117 
052123 
044524 
046105 
042116 
046040 
054503 
042514 


052105 
033040 
042502 


042514 


042105 
047520 
047504 
052520 


047520 


020116 


052105 
032040 
042502 


ee. 
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DH65: 


EM66: 


EM67: 


eASCIZ/ WITH BECR1 


-ASCIZ/WITH INT. ON DONE = 1/ 


-ASCIZ/WRONG GRANT ERROR BIT FALSELY SET/ 


-ASCIZ/TO CLEAR BIT 11 OF BECRI/ 


-ASCIZ/ERROR: TEST OF TIME DELAY AND BUS LATENCY FAILED/ 


-ASCIZ/TO SET BIT 6 OF BECR2/ 


-ASCIZ/TO CLEAR BIT 6 OF BECR2/ 


-ASCIZ/ERROR: TEST OF POWER DOWN BIT FAILED/ 


»ASCIZ/TO POWER DOWN CPU/ 


-ASCIZ/TO POWER UP CPU/ 


-ASCIZ/TO RE POWER DOWN CPU/ 


-ASCIZ/TO SET BIT 4 OF BECR2/ 


SEQ 0082 
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CZKUBB.P11 
026612 


051103 


020105 


000062 


020122 


047522 


042040 


047522 


046111 
051122 


046515 
047522 


047111 


035122 


042522 
035122 
046501 
051505 
052440 
044501 
040517 
050117 
052101 


035122 


042105 
051117 


042105 
035122 


020124 
044527 


020072 
051514 


042524 


mm: 
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EM78: 


-ASCIZ/ERROR: DCLO FAILED TO CLEAR REG/ 


-ASCIZ/ERROR: DYNAMIC TEST OF UBE FAILED/ 


-ASCIZ/TO LOAD PROPER DATA/ 


-ASCIZ/ERROR: TEST OF PASSING GRANTS FAILED/ 


-ASCIZ/ERROR: FALSE INTERRUPT WHEN DO RELEASE BUS IMMED./ 


-ASCIZ/ERROR: TEST OF MULTIPLE INTERRUPTS FAILED TO SET RDY/ 


-ASCIZ/UBE WITH VECTOR: / 


-ASCIZ/ AND BR AT: / 


-ASCIZ/ FALSELY INTERRUPTED WHEN/<15><12> 


-ASCIZ/ SHOULD HAVE INTERRUPTED/<15><12> 


SEQ 0083 
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027272 051122 050125 042524 
051523 


047523 
046440 


051501 006524 


042524 052123 
041125 
044124 
020102 
051505 


047040 


006412 


020040 020040 020040 
027762 020040 052040 051505 
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MSG11: 


-ASCIZ<15><12>/PASSING OF GRANTS NOT TESTED WITH ONE EXERCISOR/<15><12> 


-ASCII<15><12>/I1F MORE THAN ONE UBE PRESENT JUMPER W1/<15><12> 


-ASCIZ/SHOULD BE INSERTED IN ALL UBE EXCEPT LAST/<15><12> 


-ASCIZ<15><12>/TESTING UBE WITH BEDB ADDRESS: / 


-ASC12<15><12>/ NOTE:DISREGARD BIT 13 =1 OF BECR2/<15><12> 


-ASCIZ2<15><12>/PC OF ERROR MESSAGE WAS: / 


eASCI2Z<15><12>/ UNIBUS EXERCISER MODULE DIAGNOSTIC--CZ2KUB-B/<15><12><15><12> 


-ASCIZ/ TEST NUMBER WAS: / 
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3876 027770 020124 052516 041115 
3877 027776 051105 053440 051501 
roth 030004 020072 000 


030010 


EVEN 
BU 
;BUFFER WORK AREA 
SATIITTTTTTTATA TATA TTT 
030019 000011 BUFF1: .BLKW 11 

000001 - END 
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4 003172 771 

ACALC 003376 2352 

B 001126 

- 002522 993 1290* 
3 533 


002516 


002520 


002524 


002526 


002534 
002530 


2558 2560* 2569 2571 


2561 2563* 2573 2575 


002624 
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CZKUBB.P11 27-APR-78 15:02 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0087 
BITO = 000001 1244 
1T00 = 000001 1144 124 
1T01 = 000002 1134 123 
1T02 = 000004 1124 122 
1T03 = 000010 1114 121 
1704 = 000020 1104 120 
1T05 = 000040 1094 119 
1T06 = 000100 1084 118 
1107 = 000200 1074 117 
1T08 = 000400 1064 116 
1T09 = 001000 1054 115 2752 2810 
BIT1 = 000002 1234 
1T10 = 002000 1044 2795 
1T11 = 004000 1034 2759 
IT12 = 010000 1024 
1T13 = 020000 1014 2802 
1T14 = 040000 100# 2734 
BIT15 = 100000 998 
BIT2 = 000004 1224 
BITS = 000010 1214 
BIT4 = 000020 1204 
BITS = 000040 1194 
BIT6 = = 000100 1184 
BIT? = 0002 1174 
BIT8 = 000400 1164 
BIT9 = 001000 1154 
BPTVEC= 000014 1314 
BUFF1 030010 1287* 1290 1298 1299 1305* 1307 1312 1315 1316 1323* 1325 1331 1334 
1335 1341* 1344 1348 1352 1353 1391* 1393 1403 1406 1407 1419* 1420 
1426 1429 1430 1529 1533 1536 1647 1649* 1657 1679 1681 1684 1696 
1699 1703 1717 1722 1744 1746 1748 1753 1758 1784 1786 1788 1795 
1798 1802 1807 12 1835 1837 1839 1845 1848 1852 1857 1862 1884* 
1886 1893 1895* 1896* 1898 1906 2017 2110 2311 2313 2316 2320* 2329 
ic. 2407 2439% 2448 2451 2501 2502 2515 2517 2519 2520 2522 2523 
C 003500 802 8064 
CLRREG 016170 1011 1038 1102 1159 1259 1273 1288 1304 1322 1389 1417 1450 1506 
1562 1616 1646 1678 1742 1783 1834 1883 1930 1960 2012 2077 2107 
2121 2283 2308 2351 26378 
CR = 000015 394 2996 3006 
RDY 016244 1395 1423 1456 1489 1512 1523 1532 1583 1589 1596 1665 1818 1868 
1890 1902 1915 1966 1992 2020 2112 2127 26604 
CRLF = 000200 40# 2967 3006 
D 003514 807 8094 
DB = 170000 1394 os 
DDISP = 177570 464 196 728 
DH15 022133 309 524 549 33320 
DH17 022307 319 33524 
DH18 022423 324 33664 
DH19 022517 329 33774 
DH2 021020 244 3220# 
DH24 023023 354 359 364 369 394 399 34134 
DHS 021121 249 32334 
DH34 023565 404 34794 
DH35 023661 409 419 424 34908 


DH36 023756 414 35014 
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021202 259 264 624 32444 
35564 


2466 37084 

2108 2122 2212 26734 

2773* 2794+ 

485 32254 

550 560 570 


52 
32514 


024533 
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024560 
0 


35928 


2740* 2742% 2745* 


3117 


000020 2284+ 2648  2650* 2673 2675 


004770 1069 83 
AST 014436 23544 
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014460 23804 
3006 


38178 


3852¢ 


822 827+ 
1026 1121 23514 


177776 


004754 
000024 
016222 


001100 


002632 
003100 
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CZ2KUBB.P11  27-APR-78 15:02 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0091 
STKLMT= 177774 43e 
STRAP 004030 845 8788 
SWR 001172 195# 705 727" = 729 735" 739 759 809 1064 1083 1931 1944 2146 
2206 2382-2459 2539-2708 = 2734 275227592795 280228072810 3138 
* 
SWREG 000176 1484 735 
SwO = 000001 968 
swOO = 000001 868 —( 
SwO1 = 000002 858 95 
SwO2 = 000004 B48 
SwO3 = 000010 834 («93 
SWO4 = 000020 82" 8 8=— 492 
SwOS = 000040 81# = .91———s«*1064 
Sw06 = 000100 80" §=—-:-90 
SwO7? = 000200 798 ~=—«B9 
SwO8 = 000400 78 sé 
SwO9 = 001000 77#~—s«B? 
Swi = 000002 954 
SW10 = 002000 768 
wil = 004000 758 
Sw12 = 010000 744 = 739 759 +1083 «= 1931 «1944 2382 
Sw13 = 020000 73# ©2459 «Ss -2539 = 2708 
SW14 = 040000 728 
Sw15 = 100000 718 
SW2 = 000004 948 
SW3 = 000010 934 
Sw4 = 000020 924 
Sw5 = 000040 918 
SW6 = 000100 908 
Sw? = 000200 89" 
w8 = 000400 884 
Sw9 = 001000 874 
TBITVE= 000014 1298 
TERRPC 016430 773, 863—(isiBBD—C—“‘t;téS 958 987 1025 1079 1120 1123 1127 1131 ©1207 
1219 1224-1236 1242)—Ss«1247,—s«*1272,~—~=:«<«‘«<‘2302~=Sts«d23819s«*1233B20 «1356137121374 «1377 
1380 1399 «= 1410-1433) 1461 «1466S s1472—s«1478)=— 1483) «1494)0S «1538 = 1543: 1549 
1602 1631S: 1660) «1663, 1694. = s«1713'—=S—s«1720;=2S'=s«1725)=S'«=«*172B2=S*«d7B81~=—i«‘i7H7?—s«éBD-~S~=«*NCWA'S 
1860 1865 1904 1909 1912 1918 1942 1971 1978 1997 2033 2046 2052 
2057 2062, 2089 = 2094 99 2106 2131 2158 2172 2185 2194 22464 2266 
2290 2326S 2344 555 27088 
TKVEC = 000060 1364 
TMAP 002512 6584 791% 800" 801* 803 
TPVEC = 000064 1374 
TRAPVE= 000034 1358 = -713® 7148 
TRTIVEC= 000014 1308 
A 006656 1303-13828 
TSTB © 014132 2208 «= 22714 
TST1 003630 8420 
ST10 005224 11564 
S111 005754 1225. 1237 1265 ~=—-12568 
TST12 006050 12848 
S113 006656 1320 1339S «1349S s«1357—s«1372)=S«*237S)—Ss—«*1:378 «13878 
TST14 007022 1400 1404 14154 
TST15 007152 142714478 
TST16 007456 15048 


UNIBUS EXERCISOR MODULE DIAGNOSTIC 
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TST2 


TOSLO7 


004060 


104401 


104402 
104404 


20 
004562 


876 
16134 


896# 


17804 


19574 


22044 


10274 


761 
2541 
2830 


2464 


873 


8634 


9214 


10294 


1037 
1046 


MACY11 30A(1052) 
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764 
2544 
2847 


2468 


] 
27-APR-78 


815 
2547 
2849 


2543 


818 
2548 
2852 


2546 


8 
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862 920 
2551 2554 
2854 2858 
2550 2553 


2384 
2710 
3066 


31154 


SEQ 0092 
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004540 


1544 15504 


1714 1721 1726 1729 17320 


17 
011110 17624 
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CZKUBB.P11 


T18L04 


T28L03 


011072 


013766 


27-APR-78 15:02 


22464 


dD 8 
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18164 


18664 


1910 


19984 


2047 


21074 
2186 
2169 
2182 


2237 


1916 


2053 


2188 


22428 


19194 


2058 


21904 


SEQ 0094 
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014116 2261 22678 
22278 


2998 30034 


711 717 
2104 2114 
2108 2114 


2148 2154 
2805 2822 2830 2849 2854 2858 2971 3006 


016144 26278 
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017426 


2777 2792* 2822 


2822 2836 


2822 


generate 

000001 

001136 

020324 

001167 

001146 

001246 

001140 

001142 2812 

genreee 

016716 

001206 

000001 996 998 10488 10918 

1438 1501 
18208 
21348 
2360" 
020110 


2777 


eteter 

eeeeee 

eeteee 

eeeeee 

001212 

001214 9548 1222* 
1351* 1600* 
1862* 
2262+ 
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001216 1229* 1231 
1813* 1863+ 


001220 2229* 2239% 


001222 3422 
016146 
etrete 
etree 
020330 
016470 
000037 


177777 
016654 


001132 
167000 


000000 
2607* 


22054 


2768+ 


$$GET4= 000000 
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SOFILL 020111 3032* 3036* 3046 30814 
SGOCAT= eeeeee Y 2804 


= 030032 1464 1514 162 1634 1654 167# 1744 221 


SEQ 0098 


722 2630 


706 721 
2634 2776 2777 2822 28684 29354 3006 3137 3159 32504 32814 38804 38844 
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COMMEN 1394 


1136# 

1639 

20004 
21994 22734 22944 23604 


996 1091 1249 1384 1499 
1769 1870 1949 2065 2199 


207 
211 


835 8 1436 1499 
1606 2134 2199 
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1245 1320 1339 1349 1357 1372 1375 1378 1400 1404 


- ABS. 030032 


ERRORS DETECTED: 0 


CZ7KUBB.BIN,CZ2KUBB.LST/CRF/SOL/NL: TOC=CZKUBB.P11 
RUN-TIME: 22 14 1 SECONDS 

RUN-TIME RATIO: 524/38=13.4 

CORE USED: 20K (39 PAGES) 





